File Coverage

blib/lib/Perl6/PVIP/Node.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	19	42.1

package Perl6::PVIP::Node;
use strict;
use warnings;

# most of methods are written in xs.

sub perl {
    my $self = shift;
    +{
        type        => $self->type,
        line_number => $self->line_number,
        value       => do {
            if ($self->category == Perl6::PVIP::PVIP_CATEGORY_CHILDREN()) {
                [map { $_->perl } @{$self->value}];
            } else {
                $self->value;
            }
        }
    };
}

1;

__END__