File Coverage

blib/lib/Language/P/Intermediate/Code.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	4	25.0
total	24	27	88.8

package Language::P::Intermediate::Code;

use strict;
use warnings;
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_ro_accessors( qw(type name basic_blocks outer inner
                                 lexicals) );

sub new {
    my( $class, $args ) = @_;
    my $self = $class->SUPER::new( $args );

    $self->{inner} = [];

    return $self;
}

sub is_main  { $_[0]->{type} == 1 }
sub is_sub   { $_[0]->{type} == 2 }
sub is_regex { $_[0]->{type} == 3 }

1;