ExtUtils::XSpp::Node::File - Directive that sets the name of the output file

ExtUtils-XSpp documentation Contained in the ExtUtils-XSpp distribution.

Index

Code Index:

NAME

Top

ExtUtils::XSpp::Node::File - Directive that sets the name of the output file

DESCRIPTION

Top

An ExtUtils::XSpp::Node subclass representing a directive to change the name of the output file:

  %file{file/to/write/to.xs}

A special case is

  %file{-}

which indicates that output should be written to STDOUT.

METHODS

Top

new

Creates a new ExtUtils::XSpp::Node::File.

Named parameters: file, the path to the file that should be written to (or '-').

ACCESSORS

Top

file

Returns the path of the file to write to (or - for STDOUT).

ExtUtils-XSpp documentation Contained in the ExtUtils-XSpp distribution. 
package ExtUtils::XSpp::Node::File;
use strict;
use warnings;
use base 'ExtUtils::XSpp::Node';


sub init {
  my $this = shift;
  my %args = @_;

  $this->{FILE} = $args{file};
}


sub file { $_[0]->{FILE} }
sub print {
  "\n#include <exception>\n\n\n"
}

1;