lib/Frey/Request.pm

package Frey::Request;

use strict;
use warnings;

use Carp qw/confess/;
use Data::Dump qw/dump/;

our $current;

=head2 params

  my $f = Frey::Request->params;

=cut

sub params {
        my $self = shift;
#       confess "current request ",dump( $current ), " doesn't have params" unless $current->can('params');
        confess "current request ",dump( $current ), " isn't Continuity::RequestHolder " unless ref($current) eq 'Continuity::RequestHolder';
        return { $current->params };
}

1;
1	dpavlin	149	package Frey::Request;
2
3			use strict;
4			use warnings;
5
6			use Carp qw/confess/;
7			use Data::Dump qw/dump/;
8
9			our $current;
10
11			=head2 params
12
13			my $f = Frey::Request->params;
14
15			=cut
16
17			sub params {
18			my $self = shift;
19			# confess "current request ",dump( $current ), " doesn't have params" unless $current->can('params');
20			confess "current request ",dump( $current ), " isn't Continuity::RequestHolder " unless ref($current) eq 'Continuity::RequestHolder';
21			return { $current->params };
22			}
23
24			1;