/usr/share/perl5/MooseX/LazyRequire.pm is in libmoosex-lazyrequire-perl 0.10-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 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | package MooseX::LazyRequire;
BEGIN {
$MooseX::LazyRequire::AUTHORITY = 'cpan:FLORA';
}
{
$MooseX::LazyRequire::VERSION = '0.10';
}
# ABSTRACT: Required attributes which fail only when trying to use them
use Moose 0.94 ();
use Moose::Exporter;
use aliased 0.30 'MooseX::LazyRequire::Meta::Attribute::Trait::LazyRequire';
use namespace::autoclean;
my %metaroles = (
class_metaroles => {
attribute => [LazyRequire],
},
);
$metaroles{role_metaroles} = {
applied_attribute => [LazyRequire],
}
if $Moose::VERSION >= 1.9900;
Moose::Exporter->setup_import_methods(%metaroles);
1;
__END__
=pod
=encoding utf-8
=head1 NAME
MooseX::LazyRequire - Required attributes which fail only when trying to use them
=head1 SYNOPSIS
package Foo;
use Moose;
use MooseX::LazyRequire;
has foo => (
is => 'ro',
lazy_required => 1,
);
has bar => (
is => 'ro',
builder => '_build_bar',
);
sub _build_bar { shift->foo }
Foo->new(foo => 42); # succeeds, foo and bar will be 42
Foo->new(bar => 42); # succeeds, bar will be 42
Foo->new; # fails, neither foo nor bare were given
=head1 DESCRIPTION
This module adds a C<lazy_required> option to Moose attribute declarations.
The reader methods for all attributes with that option will throw an exception
unless a value for the attributes was provided earlier by a constructor
parameter or through a writer method.
=head1 CAVEATS
Prior to Moose 1.9900, roles didn't have an attribute metaclass, so this module can't
easily apply its magic to attributes defined in roles. If you want to use
C<lazy_required> in role attributes, you'll have to apply the attribute trait
yourself:
has foo => (
traits => ['LazyRequire'],
is => 'ro',
lazy_required => 1,
);
With Moose 1.9900, you can use this module in roles just the same way you can
in classes.
=for Pod::Coverage init_meta
=head1 AUTHORS
=over 4
=item *
Florian Ragwitz <rafl@debian.org>
=item *
Dave Rolsky <autarch@urth.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Florian Ragwitz.
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
|