/usr/share/perl5/MooseX/AttributeHelpers.pm is in libmoosex-attributehelpers-perl 0.25-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 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 | package MooseX::AttributeHelpers; # git description: v0.24-5-gb4c52f0
# ABSTRACT: (DEPRECATED) Extend your attribute interfaces
our $VERSION = '0.25';
use Moose 0.56 ();
use MooseX::AttributeHelpers::Meta::Method::Provided;
use MooseX::AttributeHelpers::Meta::Method::Curried;
use MooseX::AttributeHelpers::Trait::Bool;
use MooseX::AttributeHelpers::Trait::Counter;
use MooseX::AttributeHelpers::Trait::Number;
use MooseX::AttributeHelpers::Trait::String;
use MooseX::AttributeHelpers::Trait::Collection::List;
use MooseX::AttributeHelpers::Trait::Collection::Array;
use MooseX::AttributeHelpers::Trait::Collection::Hash;
use MooseX::AttributeHelpers::Trait::Collection::ImmutableHash;
use MooseX::AttributeHelpers::Trait::Collection::Bag;
use MooseX::AttributeHelpers::Counter;
use MooseX::AttributeHelpers::Number;
use MooseX::AttributeHelpers::String;
use MooseX::AttributeHelpers::Bool;
use MooseX::AttributeHelpers::Collection::List;
use MooseX::AttributeHelpers::Collection::Array;
use MooseX::AttributeHelpers::Collection::Hash;
use MooseX::AttributeHelpers::Collection::ImmutableHash;
use MooseX::AttributeHelpers::Collection::Bag;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
MooseX::AttributeHelpers - (DEPRECATED) Extend your attribute interfaces
=head1 VERSION
version 0.25
=head1 SYNOPSIS
package MyClass;
use Moose;
use MooseX::AttributeHelpers;
has 'mapping' => (
metaclass => 'Collection::Hash',
is => 'rw',
isa => 'HashRef[Str]',
default => sub { {} },
provides => {
exists => 'exists_in_mapping',
keys => 'ids_in_mapping',
get => 'get_mapping',
set => 'set_mapping',
},
curries => {
set => { set_quantity => [ 'quantity' ] }
}
);
# ...
my $obj = MyClass->new;
$obj->set_quantity(10); # quantity => 10
$obj->set_mapping(4, 'foo'); # 4 => 'foo'
$obj->set_mapping(5, 'bar'); # 5 => 'bar'
$obj->set_mapping(6, 'baz'); # 6 => 'baz'
# prints 'bar'
print $obj->get_mapping(5) if $obj->exists_in_mapping(5);
# prints '4, 5, 6'
print join ', ', $obj->ids_in_mapping;
=head1 DESCRIPTION
B<This distribution is deprecated. The features it provides have been added to
the Moose core code as L<Moose::Meta::Attribute::Native>. This distribution
should not be used by any new code.>
While L<Moose> attributes provide you with a way to name your accessors,
readers, writers, clearers and predicates, this library provides commonly
used attribute helper methods for more specific types of data.
As seen in the L</SYNOPSIS>, you specify the extension via the
C<metaclass> parameter. Available meta classes are:
=head1 PARAMETERS
=head2 provides
This points to a hashref that uses C<provider> for the keys and
C<method> for the values. The method will be added to
the object itself and do what you want.
=head2 curries
This points to a hashref that uses C<provider> for the keys and
has two choices for the value:
You can supply C<< {method => [ @args ]} >> for the values. The method will be
added to the object itself (always using C<@args> as the beginning arguments).
Another approach to curry a method provider is to supply a coderef instead of an
arrayref. The code ref takes C<$self>, C<$body>, and any additional arguments
passed to the final method.
# ...
curries => {
grep => {
times_with_day => sub {
my ($self, $body, $datetime) = @_;
$body->($self, sub { $_->ymd eq $datetime->ymd });
}
}
}
# ...
$obj->times_with_day(DateTime->now); # takes datetime argument, checks day
=head1 METHOD PROVIDERS
=over
=item L<Number|MooseX::AttributeHelpers::Number>
Common numerical operations.
=item L<String|MooseX::AttributeHelpers::String>
Common methods for string operations.
=item L<Counter|MooseX::AttributeHelpers::Counter>
Methods for incrementing and decrementing a counter attribute.
=item L<Bool|MooseX::AttributeHelpers::Bool>
Common methods for boolean values.
=item L<Collection::Hash|MooseX::AttributeHelpers::Collection::Hash>
Common methods for hash references.
=item L<Collection::ImmutableHash|MooseX::AttributeHelpers::Collection::ImmutableHash>
Common methods for inspecting hash references.
=item L<Collection::Array|MooseX::AttributeHelpers::Collection::Array>
Common methods for array references.
=item L<Collection::List|MooseX::AttributeHelpers::Collection::List>
Common list methods for array references.
=back
=head1 DEPRECATION NOTICE
The functionality in this family of modules is now implemented in the L<Moose>
core as L<Moose::Meta::Attribute::Native|native attribute traits>. No more
development is being done on MooseX::AttributeHelpers, so we encourage you to
switch to native attribute traits.
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-AttributeHelpers>
(or L<bug-MooseX-AttributeHelpers@rt.cpan.org|mailto:bug-MooseX-AttributeHelpers@rt.cpan.org>).
There is also a mailing list available for users of this distribution, at
L<http://lists.perl.org/list/moose.html>.
There is also an irc channel available for users of this distribution, at
L<C<#moose> on C<irc.perl.org>|irc://irc.perl.org/#moose>.
=head1 AUTHOR
Stevan Little <stevan@iinteractive.com>
=head1 CONTRIBUTORS
=for stopwords Shawn M Moore Stevan Little Dave Rolsky Florian Ragwitz Yuval Kogman Jason May Karen Etheridge Cory G Watson Jesse Luehrs Robert Boone Bruno Vecchi Johannes Plunien Mike Whitaker Hans Dieter Pearcey Paul Driver 'phaylon' Sedlacek Evan Carroll Dagfinn Ilmari Mannsåker Chris Prather Tom Lanyon nperez
=over 4
=item *
Shawn M Moore <sartak@gmail.com>
=item *
Stevan Little <stevan.little@iinteractive.com>
=item *
Dave Rolsky <autarch@urth.org>
=item *
Florian Ragwitz <rafl@debian.org>
=item *
Yuval Kogman <nothingmuch@woobling.org>
=item *
Jason May <jason.a.may@gmail.com>
=item *
Karen Etheridge <ether@cpan.org>
=item *
Cory G Watson <gphat@onemogin.com>
=item *
Jesse Luehrs <doy@tozt.net>
=item *
Robert Boone <robo4288@gmail.com>
=item *
Bruno Vecchi <vecchi.b@gmail.com>
=item *
Johannes Plunien <plu@pqpq.de>
=item *
Mike Whitaker <mike@altrion.org>
=item *
Hans Dieter Pearcey <hdp@weftsoar.net>
=item *
Paul Driver <frodwith@gmail.com>
=item *
Robert 'phaylon' Sedlacek <rs@474.at>
=item *
Evan Carroll <me@evancarroll.com>
=item *
Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
=item *
Chris Prather <cprather@hdpublishing.com>
=item *
Tom Lanyon <tom@netspot.com.au>
=item *
Chris Prather <chris@prather.org>
=item *
nperez <nperez@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2007 by Stevan Little and 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
|