/usr/local/CPAN/ExtUtils-XSpp/ExtUtils/XSpp/Node/Preprocessor.pm

• package ExtUtils::XSpp::Node::Preprocessor
  • init
  • print
  • symbol
• EOF

package ExtUtils::XSpp::Node::Preprocessor;
use strict;
use warnings;
use base 'ExtUtils::XSpp::Node::Raw';

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

  $this->SUPER::init( %args );
  $this->{SYMBOL} = $args{symbol};
}

sub print {
  $_[0]->rows->[0] . "\n" .
    ( $_[0]->symbol ? '#define ' . $_[0]->symbol . "\n\n" : "\n" )
}

sub symbol { $_[0]->{SYMBOL} }

1;