File Coverage

blib/lib/Path/Dispatcher/Path.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	26	28	92.8

package Path::Dispatcher::Path;
# ABSTRACT: path and some optional metadata

our $VERSION = '1.07';

use Moo;

use Types::Standard qw(Str HashRef);
use overload q{""} => sub { shift->path };

has path => (
    is        => 'ro',
    isa       => Str,
    predicate => 'has_path',
);

has metadata => (
    is        => 'ro',
    isa       => HashRef,
    predicate => 'has_metadata',
);

# allow Path::Dispatcher::Path->new($path)
around BUILDARGS => sub {
    my $orig = shift;
    my $self = shift;

    if (@_ == 1 && !ref($_[0])) {
        unshift @_, 'path';
    }

    $self->$orig(@_);
};

sub clone_path {
    my $self = shift;
    my $path = shift;

    return $self->new({ %$self, path => $path, @_ });
}

sub get_metadata {
    my $self = shift;
    my $name = shift;

    return $self->metadata->{$name};
}

__PACKAGE__->meta->make_immutable;
no Moo;

1;

__END__