sub add_method {
my ($self, $method_name, $method) = @_;
- (defined $method_name && $method_name)
+ (defined $method_name && length $method_name)
|| confess "You must define a method name";
my $body;
sub has_method {
my ($self, $method_name) = @_;
- (defined $method_name && $method_name)
+
+ (defined $method_name && length $method_name)
|| confess "You must define a method name";
return defined($self->get_method($method_name));
sub get_method {
my ( $self, $method_name ) = @_;
- ( defined $method_name && $method_name )
+
+ (defined $method_name && length $method_name)
|| confess "You must define a method name";
my $method_map = $self->_method_map;
sub remove_method {
my ($self, $method_name) = @_;
- (defined $method_name && $method_name)
+ (defined $method_name && length $method_name)
|| confess "You must define a method name";
my $removed_method = delete $self->_full_method_map->{$method_name};