X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FTraitFor%2FRequest%2FProxyBase.pm;fp=lib%2FCatalyst%2FTraitFor%2FRequest%2FProxyBase.pm;h=c85cf17b7602f7868d479bb68271e97076369d81;hb=30e989370953d0a53f9598bac43b818799a6ead6;hp=5deb56bf9bbfb5717375fea567e77cddb870fa50;hpb=1640822e823c216ef6c9665901658dd2d2578d87;p=catagits%2FCatalyst-TraitFor-Request-ProxyBase.git

diff --git a/lib/Catalyst/TraitFor/Request/ProxyBase.pm b/lib/Catalyst/TraitFor/Request/ProxyBase.pm
index 5deb56b..c85cf17 100644
--- 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;