use strict;
use warnings;
-our $VERSION = '1.04';
+our $VERSION = '1.05';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
# Constants will show up as some sort of reference in the namespace hash
# ref.
return grep {
- ! ref $namespace->{$_}
- && *{ $namespace->{$_} }{CODE}
+ ( ref $namespace->{$_} || *{ $namespace->{$_} }{CODE} )
&& $self->has_method($_)
}
keys %{$namespace};
my $namespace = $self->namespace;
return map { $self->get_method($_) }
- grep { ! ref $namespace->{$_} && *{ $namespace->{$_} }{CODE} }
+ grep { ref $namespace->{$_} || *{ $namespace->{$_} }{CODE} }
keys %{$namespace};
}