From: Dave Rolsky Date: Sun, 6 Jun 2010 18:52:14 +0000 (-0500) Subject: s/hashref/coderef/ X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e04627f8fcb0e239c7e80261dd15163fb3ea7b2d;p=gitmo%2FMoose.git s/hashref/coderef/ --- diff --git a/lib/Moose/Meta/Attribute/Native/MethodProvider/Code.pm b/lib/Moose/Meta/Attribute/Native/MethodProvider/Code.pm index 0eb8e79..eb2b7b1 100644 --- a/lib/Moose/Meta/Attribute/Native/MethodProvider/Code.pm +++ b/lib/Moose/Meta/Attribute/Native/MethodProvider/Code.pm @@ -7,7 +7,7 @@ our $VERSION = '1.07'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; -sub _get_hashref { +sub _get_coderef { my $val = $_[1]->( $_[0] ); unless ( _CODE($val) ) { @@ -23,7 +23,7 @@ sub execute : method { my $name = $attr->name; return sub { my ($self, @args) = @_; - _get_hashref( $self, $reader, $name )->(@args); + _get_coderef( $self, $reader, $name )->(@args); }; } @@ -32,7 +32,7 @@ sub execute_method : method { my $name = $attr->name; return sub { my ($self, @args) = @_; - _get_hashref( $self, $reader, $name )->($self, @args); + _get_coderef( $self, $reader, $name )->($self, @args); }; }