Mojo::Collection - Collection
use Mojo::Collection; # Manipulate collection my $collection = Mojo::Collection->new(qw(just works)); unshift @$collection, 'it'; say $collection->join("\n"); # Chain methods $collection->map(sub { ucfirst })->shuffle->each(sub { my ($word, $num) = @_; say "$num: $word"; }); # Use the alternative constructor use Mojo::Collection 'c'; c(qw(a b c))->join('/')->url_escape->say;
Mojo::Collection is an array-based container for collections.
# Access array directly to manipulate collection my $collection = Mojo::Collection->new(1 .. 25); $collection->[23] += 100; say for @$collection;
Mojo::Collection implements the following functions, which can be imported individually.
my $collection = c(1, 2, 3);
Construct a new array-based Mojo::Collection object.
Mojo::Collection implements the following methods.
my $array = $collection->TO_JSON;
Alias for "to_array".
my $new = $collection->compact;
Create a new collection with all elements that are defined and not an empty string.
# "0, 1, 2, 3" Mojo::Collection->new(0, 1, undef, 2, '', 3)->compact->join(', ');
my @elements = $collection->each; $collection = $collection->each(sub {...});
Evaluate callback for each element in collection, or return all elements as a list if none has been provided. The element will be the first argument passed to the callback, and is also available as $_.
$_
# Make a numbered list $collection->each(sub { my ($e, $num) = @_; say "$num: $e"; });
my $first = $collection->first; my $first = $collection->first(qr/foo/); my $first = $collection->first(sub {...}); my $first = $collection->first($method); my $first = $collection->first($method, @args);
Evaluate regular expression/callback for, or call method on, each element in collection and return the first one that matched the regular expression, or for which the callback/method returned true. The element will be the first argument passed to the callback, and is also available as $_.
# Longer version my $first = $collection->first(sub { $_->$method(@args) }); # Find first value that contains the word "mojo" my $interesting = $collection->first(qr/mojo/i); # Find first value that is greater than 5 my $greater = $collection->first(sub { $_ > 5 });
my $new = $collection->flatten;
Flatten nested collections/arrays recursively and create a new collection with all elements.
# "1, 2, 3, 4, 5, 6, 7" Mojo::Collection->new(1, [2, [3, 4], 5, [6]], 7)->flatten->join(', ');
my $new = $collection->grep(qr/foo/); my $new = $collection->grep(sub {...}); my $new = $collection->grep($method); my $new = $collection->grep($method, @args);
Evaluate regular expression/callback for, or call method on, each element in collection and create a new collection with all elements that matched the regular expression, or for which the callback/method returned true. The element will be the first argument passed to the callback, and is also available as $_.
# Longer version my $new = $collection->grep(sub { $_->$method(@args) }); # Find all values that contain the word "mojo" my $interesting = $collection->grep(qr/mojo/i); # Find all values that are greater than 5 my $greater = $collection->grep(sub { $_ > 5 });
my $stream = $collection->join; my $stream = $collection->join("\n");
Turn collection into Mojo::ByteStream.
# Join all values with commas $collection->join(', ')->say;
my $last = $collection->last;
Return the last element in collection.
my $new = $collection->map(sub {...}); my $new = $collection->map($method); my $new = $collection->map($method, @args);
Evaluate callback for, or call method on, each element in collection and create a new collection from the results. The element will be the first argument passed to the callback, and is also available as $_.
# Longer version my $new = $collection->map(sub { $_->$method(@args) }); # Append the word "mojo" to all values my $mojoified = $collection->map(sub { $_ . 'mojo' });
my $collection = Mojo::Collection->new(1, 2, 3);
my $result = $collection->reduce(sub {...}); my $result = $collection->reduce(sub {...}, $initial);
Reduce elements in collection with callback, the first element will be used as initial value if none has been provided.
# Calculate the sum of all values my $sum = $collection->reduce(sub { $a + $b }); # Count how often each value occurs in collection my $hash = $collection->reduce(sub { $a->{$b}++; $a }, {});
my $new = $collection->reverse;
Create a new collection with all elements in reverse order.
my $new = $collection->slice(4 .. 7);
Create a new collection with all selected elements.
# "B C E" Mojo::Collection->new('A', 'B', 'C', 'D', 'E')->slice(1, 2, 4)->join(' ');
my $new = $collection->shuffle;
Create a new collection with all elements in random order.
my $size = $collection->size;
Number of elements in collection.
my $new = $collection->sort; my $new = $collection->sort(sub {...});
Sort elements based on return value of callback and create a new collection from the results.
# Sort values case-insensitive my $case_insensitive = $collection->sort(sub { uc($a) cmp uc($b) });
$collection = $collection->tap(sub {...});
Alias for "tap" in Mojo::Base.
my $array = $collection->to_array;
Turn collection into array reference.
my $new = $collection->uniq; my $new = $collection->uniq(sub {...}); my $new = $collection->uniq($method); my $new = $collection->uniq($method, @args);
Create a new collection without duplicate elements, using the string representation of either the elements or the return value of the callback/method.
# Longer version my $new = $collection->uniq(sub { $_->$method(@args) }); # "foo bar baz" Mojo::Collection->new('foo', 'bar', 'bar', 'baz')->uniq->join(' '); # "[[1, 2], [2, 1]]" Mojo::Collection->new([1, 2], [2, 1], [3, 2])->uniq(sub{ $_->[1] })->to_array;
Mojolicious, Mojolicious::Guides, http://mojolicious.org.
To install Mojolicious, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mojolicious
CPAN shell
perl -MCPAN -e shell install Mojolicious
For more information on module installation, please visit the detailed CPAN module installation guide.