File Coverage

blib/lib/String/Incremental/String.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	4	4	100.0
condition			n/a
subroutine	9	10	90.0
pod	2	3	66.6
total	49	52	94.2

package String::Incremental::String;
use 5.008005;
use warnings;
use Mouse;
use Data::Validator;
use MouseX::Types::Mouse qw( Str CodeRef is_CodeRef );

use overload (
    '""' => \&as_string,
    '='  => sub { $_[0] },
);

has 'format' => ( is => 'ro', isa => Str );
has 'value' => ( is => 'ro', isa => CodeRef|Str );

sub BUILDARGS {
    my ($class, %args) = @_;
    my $v = Data::Validator->new(
        format => { isa => Str },
        value  => { isa => CodeRef|Str },
    );
    %args = %{$v->validate( \%args )};
    return \%args;
}

sub as_string {
    my ($self) = @_;
    my $val = $self->value;
    if ( is_CodeRef( $val ) ) { $val = $val->() }
    return sprintf( $self->format, $val );
}

sub re {
    my ($self) = @_;
    my $re;
    if ( is_CodeRef( $self->value ) ) {
        $re = '.*?';  # tmp
    }
    else {
        $re = "$self";
    }

    return qr/$re/;
}

__PACKAGE__->meta->make_immutable();
__END__