1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package MooseX::SingleArg::Meta::Object;
$MooseX::SingleArg::Meta::Object::VERSION = '0.09';
use Moose::Role;
use Carp qw( croak );
around BUILDARGS => sub{
my $orig = shift;
my $class = shift;
my $meta = $class->meta();
croak("single_arg() has not been called for $class") if !$meta->has_single_arg();
my $force = $meta->force_single_arg();
croak("$class accepts only one argument") if $force and @_>1;
if (@_==1 and ($force or ref($_[0]) ne 'HASH')) {
return $class->$orig( $meta->single_arg() => $_[0] );
}
return $class->$orig( @_ );
};
1;
|
