Source

p5-moox-struct / lib / MooX / Struct / Util.pm

Full commit
package MooX::Struct::Util;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.006';

use strict;
use Sub::Install qw(install_sub);

sub import
{
	my $class  = shift;
	my $caller = caller;
	install_sub { code => $_, from => $class, into => $caller } for @_;
}

sub lazy_default (&)
{
	my $sub = shift;
	return [
		lazy    => 1,
		default => $sub,
	];
}

1;

__END__

=head1 NAME

MooX::Struct::Util - extensions for MooX::Struct that would have been overkill to include

=head1 LAZY DEFAULTS

Sugar for lazily defaulted attributes. The following two are effectively
the same.

 use MooX::Struct WebPage1 => [
    user_agent => [
       lazy     => 1,
       default  => sub { LWP::UserAgent->new },
    ],
 ];
 
 use MooX::Struct::Util qw(lazy_default);
 use MooX::Struct WebPage2 => [
    user_agent => lazy_default { LWP::UserAgent->new },
 ];

=head1 BUGS

Please report any bugs to
L<http://rt.cpan.org/Dist/Display.html?Queue=MooX-Struct>.

=head1 SEE ALSO

L<MooX::Struct>.

=head1 AUTHOR

Toby Inkster E<lt>tobyink@cpan.orgE<gt>.

=head1 COPYRIGHT AND LICENCE

This software is copyright (c) 2012 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=head1 DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.