Basics

diff --git a/Makefile.PL b/Makefile.PL
index 7dbdb58..9fc7f67 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,11 +1,20 @@
-use inc::Module::Install;
+use strict;
+use warnings;
+use inc::Module::Install 0.91;
 
 name 'Catalyst-TraitFor-Request-ProxyBase';
 all_from 'lib/Catalyst/TraitFor/Request/ProxyBase.pm';
 
-build_requires 'Catalyst::Runtime';
+name 'CatalystX-RequestRole-ProxyBase';
+all_from 'lib/CatalystX/RequestRole/ProxyBase.pm';
+
+requires 'Moose';
+requires 'namespace::autoclean';
+
+build_requires 'Catalyst::Runtime' => 5.80;
+build_requires 'CatalystX::RoleApplicator' => '0.005';
 build_requires 'Test::WWW::Mechanize::Catalyst';
 build_requires 'Test::More';
-build_requires 'ok';
 
 WriteAll();
+

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;

diff --git a/t/00-load.t b/t/00-load.t
index a929a86..44131f6 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -3,4 +3,5 @@
 use strict;
 use warnings;
 use Test::More tests => 1;
-use ok 'Catalyst::TraitFor::Request::ProxyBase';
+use_ok 'Catalyst::TraitFor::Request::ProxyBase' or BAIL_OUT;
+