File Coverage

blib/lib/RDF/Notation3/ReaderString.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	39	30.7

use strict;
use warnings;

package RDF::Notation3::ReaderString;

require 5.005_62;
use RDF::Notation3::Template::TReader;

############################################################

@RDF::Notation3::ReaderString::ISA = qw(RDF::Notation3::Template::TReader);

sub new {
    my ($class, $str) = @_;
    my @lines = split /\n|\r|\n\r/, $str;

    my $self = {
                lines => \@lines,
                tokens => [],
                ln => 0,
               };

    bless $self, $class;
    return $self;
}

sub _new_line {
    my ($self, $dont_modify) = @_;

    my $line = '';

    until ($line) {
        $line = shift @{$self->{lines}};
        $self->{ln}++;

        unless ($dont_modify or !$line) {
            $line =~ s/^\s*(.*)$/$1/;
            $line =~ s/^(\#.*)$//;
        }
        last unless (scalar @{$self->{lines}});
    }
    return $line;
}


1;

__END__