diff options
author | franck cuny <franck@lumberjaph.net> | 2009-12-08 10:35:46 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-12-08 10:35:46 +0100 |
commit | a2b7ab98ccb7083ad6bdda0839a1e2e6e21ea847 (patch) | |
tree | 309219b95ca9846f53cc078a01baa2577d3399ab /lib/MooseX/Net/API/Meta | |
parent | Checking in changes prior to tagging of version 0.01. Changelog diff is: (diff) | |
parent | small updates to tests (diff) | |
download | moosex-net-api-a2b7ab98ccb7083ad6bdda0839a1e2e6e21ea847.tar.gz |
Merge branch 'topic/create_tests'
* topic/create_tests: small updates to tests add a catalyst app to tests add basic tests remove meta class and method move meta class and method to new file, add meta to handle tests
Diffstat (limited to '')
-rw-r--r-- | lib/MooseX/Net/API/Meta/Class.pm | 34 | ||||
-rw-r--r-- | lib/MooseX/Net/API/Meta/Method.pm | 18 |
2 files changed, 52 insertions, 0 deletions
diff --git a/lib/MooseX/Net/API/Meta/Class.pm b/lib/MooseX/Net/API/Meta/Class.pm new file mode 100644 index 0000000..80075f8 --- /dev/null +++ b/lib/MooseX/Net/API/Meta/Class.pm @@ -0,0 +1,34 @@ +package MooseX::Net::API::Meta::Class; + +use Moose::Role; +use Moose::Meta::Class; +use MooseX::Types::Moose qw(Str ArrayRef ClassName Object); + +has local_api_methods => ( + traits => ['Array'], + is => 'ro', + isa => ArrayRef [Str], + required => 1, + default => sub { [] }, + auto_deref => 1, + handles => { '_add_api_method' => 'push' }, +); +has local_api_test_methods => ( + traits => ['Array'], + is => 'ro', + isa => ArrayRef [Str], + required => 1, + default => sub { [] }, + auto_deref => 1, + handles => { '_add_api_test_method' => 'push' }, +); + +sub _build_meta_class { + my $self = shift; + return Moose::Meta::Class->create_anon_class( + superclasses => [ $self->method_metaclass ], + cache => 1, + ); +} + +1; diff --git a/lib/MooseX/Net/API/Meta/Method.pm b/lib/MooseX/Net/API/Meta/Method.pm new file mode 100644 index 0000000..74f9a07 --- /dev/null +++ b/lib/MooseX/Net/API/Meta/Method.pm @@ -0,0 +1,18 @@ +package MooseX::Net::API::Meta::Method; + +use Moose; +extends 'Moose::Meta::Method'; + +has description => ( is => 'ro', isa => 'Str' ); +has path => ( is => 'ro', isa => 'Str', required => 1 ); +has method => ( is => 'ro', isa => 'Str', required => 1 ); +has params => ( is => 'ro', isa => 'ArrayRef', required => 0 ); +has required => ( is => 'ro', isa => 'ArrayRef', required => 0 ); + +sub new { + my $class = shift; + my %args = @_; + $class->SUPER::wrap(@_); +} + +1; |