map_options => 'map',
filter_options => 'grep',
find_option => 'first',
- first_option => 'head',
- all_but_first_option => 'tail',
- last_option => 'last',
get_option => 'get',
join_options => 'join',
count_options => 'count',
- has_no_options => 'empty',
+ has_no_options => 'is_empty',
sorted_options => 'sort',
}
);
my $count = $stuff->count_options;
print "$count\n"; # prints 4
-=item B<empty>
+=item B<is_empty>
Returns a boolean value indicating whether or not the array has any elements.
be called against each element in the array until one matches or all elements
have been checked.
- my $found = $stuff->find_option( sub { $_[0] =~ /^b/ } );
+ my $found = $stuff->find_option( sub { /^b/ } );
print "$found\n"; # prints "bar"
=item B<grep( sub { ... } )>
core C<grep> function. This method requires a subroutine which implements the
matching logic.
- my @found = $stuff->filter_options( sub { $_[0] =~ /^b/ } );
+ my @found = $stuff->filter_options( sub { /^b/ } );
print "@found\n"; # prints "bar baz boo"
=item B<map( sub { ... } )>
just like Perl's core C<map> function. This method requires a subroutine which
implements the transformation.
- my @mod_options = $stuff->map_options( sub { $_[0] . "-tag" } );
+ my @mod_options = $stuff->map_options( sub { $_ . "-tag" } );
print "@mod_options\n"; # prints "foo-tag bar-tag baz-tag boo-tag"
=item B<sort( sub { ... } )>
Empties the entire array, like C<@array = ()>.
-=item B<head>
-
-Returns the first element of the array.
-
- my $first = $stuff->first_option;
- print "$first\n"; # prints "foo"
-
-=item B<tail>
-
-Returns all elements of the array after the first.
-
- my @tail = $stuff->all_but_first_option;
- print join(', ', @tail), "\n"; # prints "bar, baz, boo"
-
-=item B<last>
-
-Returns the last element of the array.
-
- my $last = $stuff->last_option;
- print "$last\n"; # prints "boo"
-
=item B<accessor>
This method provides a get/set accessor for the array, based on array indexes.
projects / gitmo/Moose.git / blobdiff