Basics

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

diff --git a/lib/Catalyst/TraitFor/Request/ProxyBase.pm b/lib/Catalyst/TraitFor/Request/ProxyBase.pm
index 5deb56b..c85cf17 100644 (file)
--- a/lib/Catalyst/TraitFor/Request/ProxyBase.pm
+++ b/lib/Catalyst/TraitFor/Request/ProxyBase.pm
@@ -1,6 +1,19 @@
 package Catalyst::TraitFor::Request::ProxyBase;
-use strict;
-use warnings;
+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
 
@@ -8,4 +21,3 @@ Catalyst::TraitFor::Request::ProxyBase -
 
 =cut
 
-1;