Profile of Data/Perl/Collection/Array/MooseLike.pm

Filename	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Data/Perl/Collection/Array/MooseLike.pm
Statements	Executed 11 statements in 654µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	605µs	757µs	Data::Perl::Collection::Array::MooseLike::BEGIN@7
1	1	1	43µs	163µs	Data::Perl::Collection::Array::MooseLike::BEGIN@5
1	1	1	15µs	70µs	Data::Perl::Collection::Array::MooseLike::BEGIN@8
0	0	0	0s	0s	Data::Perl::Collection::Array::MooseLike::__ANON__[:20]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Data::Perl::Collection::Array::MooseLike;
2	1	1µs			$Data::Perl::Collection::Array::MooseLike::VERSION = '0.001009';
3					# ABSTRACT: Collection::Array subclass that simulates Moose's native traits.
4
5	3	49µs	3	283µs	# spent 163µs (43+120) within Data::Perl::Collection::Array::MooseLike::BEGIN@5 which was called: # once (43µs+120µs) by Module::Runtime::require_module at line 5 use strictures 1; # spent 163µs making 1 call to Data::Perl::Collection::Array::MooseLike::BEGIN@5 # spent 97µs making 1 call to strictures::import # spent 23µs making 1 call to strictures::VERSION
6
7	2	396µs	2	797µs	# spent 757µs (605+152) within Data::Perl::Collection::Array::MooseLike::BEGIN@7 which was called: # once (605µs+152µs) by Module::Runtime::require_module at line 7 use Role::Tiny::With; # spent 757µs making 1 call to Data::Perl::Collection::Array::MooseLike::BEGIN@7 # spent 40µs making 1 call to Exporter::import
8	2	194µs	2	125µs	# spent 70µs (15+55) within Data::Perl::Collection::Array::MooseLike::BEGIN@8 which was called: # once (15µs+55µs) by Module::Runtime::require_module at line 8 use Class::Method::Modifiers; # spent 70µs making 1 call to Data::Perl::Collection::Array::MooseLike::BEGIN@8 # spent 55µs making 1 call to Exporter::import
9
10	1	2µs	1	3.68ms	with 'Data::Perl::Role::Collection::Array'; # spent 3.68ms making 1 call to Role::Tiny::With::with
11
12					around 'splice' => sub {
13					my $orig = shift;
14					my @res = $orig->(@_);
15
16					# support both class instance method invocation style
17					@res = blessed($res[0]) && $res[0]->isa('Data::Perl::Collection::Array') ? $res[0]->flatten : @res;
18
19					wantarray ? @res : $res[-1];
20	1	7µs	1	158µs	}; # spent 158µs making 1 call to Class::Method::Modifiers::around
21
22	1	5µs			1;
23
24					=pod
25
26					=encoding UTF-8
27
28					=head1 NAME
29
30					Data::Perl::Collection::Array::MooseLike - Collection::Array subclass that simulates Moose's native traits.
31
32					=head1 VERSION
33
34					version 0.001009
35
36					=head1 SYNOPSIS
37
38					use Data::Perl::Collection::Array::MooseLike;
39
40					my $array = Data::Perl::Collection::Array::MooseLike->new(qw/a b c d/);
41
42					my $scalar_context = $array->splice(0, 2); # removes and returns b
43
44					my @list_context = $array->splice(0, 2); # returns and removes (b, c)
45
46					=head1 DESCRIPTION
47
48					This class provides a wrapper and methods for interacting with an array. All
49					methods are written to emulate/match existing behavior that exists with Moose's
50					native traits.
51
52					=head1 DIFFERENCES IN FUNCTIONALITY
53
54					=over 4
55
56					=item B<splice($args, ...)>
57
58					Just like Perl's builtin splice. In scalar context, this returns the last
59					element removed, or undef if no elements were removed. In list context, this
60					returns all the elements removed from the array.
61
62					This method requires at least one argument.
63
64					=back
65
66					=head1 SEE ALSO
67
68					=over 4
69
70					=item * L<Data::Perl>
71
72					=item * L<Data::Perl::Role::Collection::Array>
73
74					=back
75
76					=head1 AUTHOR
77
78					Toby Inkster <tobyink@cpan.org>
79
80					=head1 COPYRIGHT AND LICENSE
81
82					This software is copyright (c) 2020 by Matthew Phillips <mattp@cpan.org>.
83
84					This is free software; you can redistribute it and/or modify it under
85					the same terms as the Perl 5 programming language system itself.
86
87					=cut
88
89					__END__