File Coverage

blib/lib/Dancer2/Template/Caribou/DancerVariables.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	15	15	100.0

package Dancer2::Template::Caribou::DancerVariables;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT: Role providing Dancer attributes to the template objects
$Dancer2::Template::Caribou::DancerVariables::VERSION = '1.0.0';

use strict;
use warnings;

use Moose::Role;


has "request" => (
    is => 'ro',
);


sub uri_for {
    $_[0]->request->uri_for($_[1]);
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Dancer2::Template::Caribou::DancerVariables - Role providing Dancer attributes to the template objects

=head1 VERSION

version 1.0.0

=head1 SYNOPSIS

    package Dancer2::View::MyView;

    use Moose;
    use Template::Caribou;

    with qw/
        Template::Caribou
        Dancer2::Template::Caribou::DancerVariables
    /;

    template page => sub {
        my $self = shift;

        print ::RAW $self->uri_for( '/foo' );
    };

=head1 DESCRIPTION

C<Dancer2::Template::Caribou::DancerVariables> adds attributes and methods to
allow interactions with the L<Dancer2> application and its context.

=head1 METHODS

=head2 request()

Returns the current L<Dancer2::Core::Request> object.

=head2 uri_for( $path )

Returns the absolute url for the given C<$path>.

=head1 AUTHOR

Yanick Champoux <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Yanick Champoux.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut