[catagits/Catalyst-TraitFor-Request-ProxyBase.git] / lib / Catalyst / TraitFor / Request / ProxyBase.pm

package Catalyst::TraitFor::Request::ProxyBase;
use Moose::Role;
use namespace::autoclean;

requires 'base';

around 'base' => sub {
    my ($orig, $self, @args) = @_;
    my $ret = $self->$orig(@args);
    # FIXME - Mangle here.
    return $ret;
};

1;

__END__

=head1 NAME

Catalyst::TraitFor::Request::ProxyBase - 

=cut
Commit	Line	Data
1640822e	1	package Catalyst::TraitFor::Request::ProxyBase;
30e98937	2	use Moose::Role;
	3	use namespace::autoclean;
	4
	5	requires 'base';
	6
	7	around 'base' => sub {
	8	my ($orig, $self, @args) = @_;
	9	my $ret = $self->$orig(@args);
	10	# FIXME - Mangle here.
	11	return $ret;
	12	};
	13
	14	1;
	15
	16	__END__
1640822e	17
	18	=head1 NAME
	19
	20	Catalyst::TraitFor::Request::ProxyBase -
	21
	22	=cut
	23