File Coverage

blib/lib/Dancer/Plugin/PageHistory/Page.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	22	22	100.0

package Dancer::Plugin::PageHistory::Page;

=head1 NAME

Dancer::Plugin::PageHistory::Page - Page object for Dancer::Plugin::PageHistory

=cut

use Moo;
use Types::Standard qw(Str HashRef);
use URI;
use namespace::clean;

=head1 ATTRIBUTES

=head2 attributes

Extra attributes as a hash reference, e.g.: SKU for a product page.

=cut

has attributes => (
    is        => 'ro',
    isa       => HashRef,
    predicate => 1,
);

=head2 path

Absolute path of the page. This is the only required attribute.

=cut

has path => (
    is       => 'ro',
    isa      => Str,
    required => 1,
);

=head2 query

Query parameters as a hash reference.

=cut

has query => (
    is        => 'ro',
    isa       => HashRef,
);

=head2 title

Page title.

=cut

has title => (
    is        => 'ro',
    isa       => Str,
    predicate => 1,
);

=head1 METHODS

=head2 predicates

The following predicate methods are defined:

=over

=item * has_attributes

=item * has_title

=back

=head2 uri

Returns the string URI for L and L.

=cut

sub uri {
    my $self = shift;
    my $uri = URI->new( $self->path );
    $uri->query_form($self->query);
    return $uri->as_string;
}

1;