File Coverage

blib/lib/Perl6/PVIP.pm

Criterion	Covered	Total	%
statement	21	29	72.4
branch			n/a
condition			n/a
subroutine	7	10	70.0
pod			n/a
total	28	39	71.7

package Perl6::PVIP;
use 5.008005;
use strict;
use warnings;
use parent qw(Exporter);

our $VERSION = "0.12";

use Perl6::PVIP::_consts;
use Perl6::PVIP::Node;

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub new {
    my $class = shift;
    return bless {
    }, $class;
}

sub parse_string {
    my ($self, $code) = @_;
    my ($node, $err) = Perl6::PVIP::_parse_string($code);
    $self->{errstr} = $err;
    return $node;
}

sub errstr {
    my $self = shift;
    $self->{errstr};
}

1;
__END__