File Coverage

blib/lib/Regex/Object/Match.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	33	34	97.0

package Regex::Object::Match;

use 5.20.0;

use utf8;
use English;
use feature qw(signatures);

use Moo;

no warnings qw(experimental::signatures);
use namespace::clean;

has [qw(prematch match postmatch last_paren_match
        captures named_captures named_captures_all)
] => (
    is       => 'ro',
    required => 1,
);

has success => (
    is => 'rwp',
);

sub BUILD($self, $args) {
    $self->_set_success(defined $self->match);
}

1;

__END__