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	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;