Mixin-ExtraFields
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Mixin/ExtraFields/Driver/HashGuts.pm view on Meta::CPAN
unless ($object->{ $self->hash_key }||0 == $store) {
$object->{ $self->hash_key } ||= $store;
}
return $store
}
sub from_args {
my ($class, $arg) = @_;
my $self = bless { storage => {} } => $class;
$self->{hash_key} = $arg->{hash_key} || $self->default_hash_key;
return $self;
}
sub exists_extra {
my ($self, $object, $id, $name) = @_;
return exists $self->storage_for($object, $id)->{$name};
view all matches for this distributionview release on metacpan - search on metacpan
( run in 4.021 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )