/usr/share/perl5/KiokuDB/Meta/Attribute/Lazy.pm is in libkiokudb-perl 0.56-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | package KiokuDB::Meta::Attribute::Lazy;
BEGIN {
$KiokuDB::Meta::Attribute::Lazy::AUTHORITY = 'cpan:NUFFIN';
}
{
$KiokuDB::Meta::Attribute::Lazy::VERSION = '0.56';
}
use Moose::Role;
# ABSTRACT: Trait for lazy loaded attributes
use Moose::Util qw(does_role);
use namespace::clean -except => 'meta';
sub Moose::Meta::Attribute::Custom::Trait::KiokuDB::Lazy::register_implementation { __PACKAGE__ }
before attach_to_class => sub {
my ( $self, $class ) = @_;
my $mi = $class->get_meta_instance;
unless ( does_role( $mi, "KiokuDB::Meta::Instance" ) ) {
$self->throw_error("Can't attach to a class whose meta instance doesn't do KiokuDB::Meta::Instance", data => $class );
}
};
__PACKAGE__
__END__
=pod
=head1 NAME
KiokuDB::Meta::Attribute::Lazy - Trait for lazy loaded attributes
=head1 VERSION
version 0.56
=head1 SYNOPSIS
# in your class:
package Foo;
use KiokuDB::Class;
has bar => (
traits => [qw(KiokuDB::Lazy)],
isa => "Bar",
is => "ro",
);
# Later:
my $foo = $dir->lookup($id);
# bar is not yet loaded, it will be lazily fetched during this call:
$foo->bar;
=head1 DESCRIPTION
This L<Moose::Meta::Attribute> trait provides lazy loading on a per field basis
for objects stored in L<KiokuDB>.
Instead of using proxy objects with AUTOLOAD, overloading, or similar hacks,
you can declaratively specify which attributes you want to make lazy, and this
will be done cleanly through the MOP.
This is implemented by using a placeholder object, L<KiokuDB::Thunk> which
contains references to the ID and the linker, and L<KiokuDB::Meta::Instance>
will know to replace the placeholder with the actual loaded object when it is
fetched from the object by an accessor.
=head1 AUTHOR
Yuval Kogman <nothingmuch@woobling.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Yuval Kogman, Infinity Interactive.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|