Server IP : 85.214.239.14 / Your IP : 3.15.192.89 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/self/root/lib/x86_64-linux-gnu/perl5/5.36/Moose/Meta/Attribute/ |
Upload File : |
use strict; use warnings; package Moose::Meta::Attribute::Native; our $VERSION = '2.2203'; use Module::Runtime 'require_module'; my @trait_names = qw(Bool Counter Number String Array Hash Code); for my $trait_name (@trait_names) { my $trait_class = "Moose::Meta::Attribute::Native::Trait::$trait_name"; my $meta = Class::MOP::Class->initialize( "Moose::Meta::Attribute::Custom::Trait::$trait_name" ); if ($meta->find_method_by_name('register_implementation')) { my $class = $meta->name->register_implementation; die "An implementation for $trait_name already exists " . "(found '$class' when trying to register '$trait_class')" } $meta->add_method(register_implementation => sub { # resolve_metatrait_alias will load classes anyway, but throws away # their error message; we WANT to die if there's a problem require_module($trait_class); return $trait_class; }); } 1; # ABSTRACT: Delegate to native Perl types __END__ =pod =encoding UTF-8 =head1 NAME Moose::Meta::Attribute::Native - Delegate to native Perl types =head1 VERSION version 2.2203 =head1 SYNOPSIS package MyClass; use Moose; has 'mapping' => ( traits => ['Hash'], is => 'rw', isa => 'HashRef[Str]', default => sub { {} }, handles => { exists_in_mapping => 'exists', ids_in_mapping => 'keys', get_mapping => 'get', set_mapping => 'set', set_quantity => [ set => 'quantity' ], }, ); my $obj = MyClass->new; $obj->set_quantity(10); # quantity => 10 $obj->set_mapping('foo', 4); # foo => 4 $obj->set_mapping('bar', 5); # bar => 5 $obj->set_mapping('baz', 6); # baz => 6 # prints 5 print $obj->get_mapping('bar') if $obj->exists_in_mapping('bar'); # prints 'quantity, foo, bar, baz' print join ', ', $obj->ids_in_mapping; =head1 DESCRIPTION Native delegations allow you to delegate to native Perl data structures as if they were objects. For example, in the L</SYNOPSIS> you can see a hash reference being treated as if it has methods named C<exists()>, C<keys()>, C<get()>, and C<set()>. The delegation methods (mostly) map to Perl builtins and operators. The return values of these delegations should be the same as the corresponding Perl operation. Any deviations will be explicitly documented. =head1 API Native delegations are enabled by passing certain options to C<has> when creating an attribute. =head2 traits To enable this feature, pass the appropriate name in the C<traits> array reference for the attribute. For example, to enable this feature for hash reference, we include C<'Hash'> in the list of traits. =head2 isa You will need to make sure that the attribute has an appropriate type. For example, to use this with a Hash you must specify that your attribute is some sort of C<HashRef>. =head2 handles This is just like any other delegation, but only a hash reference is allowed when defining native delegations. The keys are the methods to be created in the class which contains the attribute. The values are the methods provided by the associated trait. Currying works the same way as it does with any other delegation. See the docs for each native trait for details on what methods are available. =head1 TRAITS FOR NATIVE DELEGATIONS Below are some simple examples of each native trait. More features are available than what is shown here; this is just a quick synopsis. =over =item Array (L<Moose::Meta::Attribute::Native::Trait::Array>) has 'queue' => ( traits => ['Array'], is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] }, handles => { add_item => 'push', next_item => 'shift', # ... } ); =item Bool (L<Moose::Meta::Attribute::Native::Trait::Bool>) has 'is_lit' => ( traits => ['Bool'], is => 'ro', isa => 'Bool', default => 0, handles => { illuminate => 'set', darken => 'unset', flip_switch => 'toggle', is_dark => 'not', # ... } ); =item Code (L<Moose::Meta::Attribute::Native::Trait::Code>) has 'callback' => ( traits => ['Code'], is => 'ro', isa => 'CodeRef', default => sub { sub {'called'} }, handles => { call => 'execute', # ... } ); =item Counter (L<Moose::Meta::Attribute::Native::Trait::Counter>) has 'counter' => ( traits => ['Counter'], is => 'ro', isa => 'Num', default => 0, handles => { inc_counter => 'inc', dec_counter => 'dec', reset_counter => 'reset', # ... } ); =item Hash (L<Moose::Meta::Attribute::Native::Trait::Hash>) has 'options' => ( traits => ['Hash'], is => 'ro', isa => 'HashRef[Str]', default => sub { {} }, handles => { set_option => 'set', get_option => 'get', has_option => 'exists', # ... } ); =item Number (L<Moose::Meta::Attribute::Native::Trait::Number>) has 'integer' => ( traits => ['Number'], is => 'ro', isa => 'Int', default => 5, handles => { set => 'set', add => 'add', sub => 'sub', mul => 'mul', div => 'div', mod => 'mod', abs => 'abs', # ... } ); =item String (L<Moose::Meta::Attribute::Native::Trait::String>) has 'text' => ( traits => ['String'], is => 'ro', isa => 'Str', default => q{}, handles => { add_text => 'append', replace_text => 'replace', # ... } ); =back =head1 COMPATIBILITY WITH MooseX::AttributeHelpers This feature used to be a separated CPAN distribution called L<MooseX::AttributeHelpers>. When the feature was incorporated into the Moose core, some of the API details were changed. The underlying capabilities are the same, but some details of the API were changed. =head1 BUGS See L<Moose/BUGS> for details on reporting bugs. =head1 AUTHORS =over 4 =item * Stevan Little <stevan@cpan.org> =item * Dave Rolsky <autarch@urth.org> =item * Jesse Luehrs <doy@cpan.org> =item * Shawn M Moore <sartak@cpan.org> =item * יובל קוג'מן (Yuval Kogman) <nothingmuch@woobling.org> =item * Karen Etheridge <ether@cpan.org> =item * Florian Ragwitz <rafl@debian.org> =item * Hans Dieter Pearcey <hdp@cpan.org> =item * Chris Prather <chris@prather.org> =item * Matt S Trout <mstrout@cpan.org> =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2006 by Infinity Interactive, Inc. 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