Object-Generic
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Object/Generic.pm view on Meta::CPAN
use strict;
use warnings;
use Object::Generic::False qw(false);
our $VERSION = '0.13';
my $false = Object::Generic::false();
sub new {
my $class = shift;
my $self = bless {} => $class;
$self->args(@_);
return $self;
}
# Return a list of the current keys.
sub keys {
my $self = shift;
return keys %$self;
}
lib/Object/Generic/False.pm view on Meta::CPAN
#q(.) => \&false,
q(x) => \&false,
# --- bits ----------
q(&) => \&false,
q(|) => \&false,
q(~) => \&false, # Should this perhaps return a (true) Object::Generic?
;
sub new {
my $class = shift;
my $false = shift || 0;
return bless \$false => $class;
}
sub DESTROY { # Defined here so that AUTOLOAD won't handle it.
}
sub AUTOLOAD {
return shift;
}
sub false {
return $_false_;
}
sub error {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.625 second using v1.00-cache-2.02-grep-82fe00e-cpan-72ae3ad1e6da )