Skip to content
Browse files

Don't pass a signature to the meta method is there was none.

  • Loading branch information...
1 parent 4623ff2 commit 2dfd52faf93bebbc1c6cd98571d77da05ed92439 @rafl committed Aug 1, 2009
Showing with 3 additions and 4 deletions.
  1. +3 −4 lib/MooseX/Method/Signatures.pm
View
7 lib/MooseX/Method/Signatures.pm
@@ -202,14 +202,13 @@ sub _parser {
my $compile_stash = $ctx->get_curstash_name;
my %args = (
- signature => q{(} . ($proto || '') . q{)},
-
# This might get reset later, but its where we search for exported
# symbols at compile time
package_name => $compile_stash,
);
- $args{traits} = $traits if $traits;
- $args{return_signature} = $ret_tc if defined $ret_tc;
+ $args{ signature } = qq{($proto)} if defined $proto;
+ $args{ traits } = $traits if $traits;
+ $args{ return_signature } = $ret_tc if defined $ret_tc;
if ($self->has_prototype_injections) {
confess('Configured declarator does not match context declarator')

0 comments on commit 2dfd52f

Please sign in to comment.
Something went wrong with that request. Please try again.