File Coverage

blib/lib/Data/Section/TestBase.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	5	8	62.5
condition			n/a
subroutine	8	8	100.0
pod	1	2	50.0
total	52	57	91.2

package Data::Section::TestBase;
use strict;
use warnings;
use utf8;

use parent qw/Exporter/;
our @EXPORT = qw/blocks/;
use Text::TestBase;

our $VERSION = '0.13';

sub new {
    my $class = shift;
    my %args= @_==1 ? %{$_[0]} : @_;
    bless { %args }, $class;
}

sub blocks(;$) {
    my $self = ref $_[0] ? shift : __PACKAGE__->new(package => scalar caller);
    my $filter = shift;

    my $d = do { no strict 'refs'; \*{$self->{package}."::DATA"} };
    return unless defined fileno $d;

    seek $d, 0, 0;

    my $line_offset = 0;

    my $content = join '', <$d>;

    my $parser = Text::TestBase->new();
    my @blocks = $parser->parse($content);
    for my $block (@blocks) {
        $block->{_lineno} += $line_offset;
    }
    if($filter){
        return grep {$_->has_section($filter)} @blocks;
    }
    return @blocks;
}

1;
__END__