File Coverage

blib/lib/Data/Object/Regexp/Result.pm

Criterion	Covered	Total	%
statement	54	54	100.0
branch			n/a
condition	9	16	56.2
subroutine	14	14	100.0
pod	11	11	100.0
total	88	95	92.6

# ABSTRACT: A Regexp Result Object for Perl 5
package Data::Object::Regexp::Result;

use 5.010;
use Data::Object::Class;

use Data::Object 'deduce_deep';

extends 'Data::Object::Array';

our $VERSION = '0.20'; # VERSION

sub captures {
    my $self   = shift;
    my $string = $self->initial;

    my $last_match_start = $self->last_match_start;
    my $last_match_end   = $self->last_match_end;

    my @captures;

    for (my $i = 1; $i < @$last_match_end; $i++) {
        my $start = $last_match_start->[$i] || 0;
        my $end   = $last_match_end->[$i]   || 0;

        push @captures, substr "$string", $start, $end - $start;
    }

    return deduce_deep [@captures];
}

sub count {
    my $self = shift;
    return deduce_deep $self->[2];
}

sub initial {
    my $self = shift;
    return deduce_deep $self->[6];
}

sub last_match_end {
    my $self = shift;
    return deduce_deep $self->[4];
}

sub last_match_start {
    my $self = shift;
    return deduce_deep $self->[3];
}

sub named_captures {
    my $self = shift;
    return deduce_deep $self->[5];
}

sub matched {
    my $self   = shift;
    my $string = $self->initial;

    my $last_match_start = $self->last_match_start;
    my $last_match_end   = $self->last_match_end;

    my $start = $last_match_start->[0] || 0;
    my $end   = $last_match_end->[0]   || 0;

    return deduce_deep substr "$string", $start, $end - $start;
}

sub prematched {
    my $self   = shift;
    my $string = $self->initial;

    my $last_match_start = $self->last_match_start;
    my $last_match_end   = $self->last_match_end;

    my $start = $last_match_start->[0] || 0;
    my $end   = $last_match_end->[0]   || 0;

    return deduce_deep substr "$string", 0, $start;
}

sub postmatched {
    my $self   = shift;
    my $string = $self->initial;

    my $last_match_start = $self->last_match_start;
    my $last_match_end   = $self->last_match_end;

    my $start = $last_match_start->[0] || 0;
    my $end   = $last_match_end->[0]   || 0;

    return deduce_deep substr "$string", $end;
}

sub regexp {
    my $self = shift;
    return deduce_deep $self->[0];
}

sub string {
    my $self = shift;
    return deduce_deep $self->[1];
}

1;

__END__