File Coverage

blib/lib/ExtUtils/XSpp/Node/Preprocessor.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	3	66.6
total	25	26	96.1

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;