← Index
NYTProf Performance Profile   « block view • line view • sub view »
For -e
  Run on Wed Nov 17 22:00:36 2010
Reported on Wed Nov 17 22:13:07 2010

Filename/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Package/DeprecationManager.pm
StatementsExecuted 117 statements in 3.60ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
333434µs2.00msPackage::DeprecationManager::::importPackage::DeprecationManager::import
888260µs260µsPackage::DeprecationManager::::__ANON__[:61]Package::DeprecationManager::__ANON__[:61]
311126µs126µsPackage::DeprecationManager::::_build_warnPackage::DeprecationManager::_build_warn
11173µs92µsPackage::DeprecationManager::::BEGIN@6Package::DeprecationManager::BEGIN@6
31169µs69µsPackage::DeprecationManager::::_build_importPackage::DeprecationManager::_build_import
11147µs541µsPackage::DeprecationManager::::BEGIN@11Package::DeprecationManager::BEGIN@11
11146µs46µsPackage::DeprecationManager::::BEGIN@2Package::DeprecationManager::BEGIN@2
11140µs62µsPackage::DeprecationManager::::BEGIN@12Package::DeprecationManager::BEGIN@12
11139µs167µsPackage::DeprecationManager::::BEGIN@10Package::DeprecationManager::BEGIN@10
11138µs107µsPackage::DeprecationManager::::BEGIN@7Package::DeprecationManager::BEGIN@7
11138µs199µsPackage::DeprecationManager::::BEGIN@9Package::DeprecationManager::BEGIN@9
0000s0sPackage::DeprecationManager::::__ANON__[:123]Package::DeprecationManager::__ANON__[:123]
0000s0sPackage::DeprecationManager::::__ANON__[:83]Package::DeprecationManager::__ANON__[:83]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Package::DeprecationManager;
2
# spent 46µs within Package::DeprecationManager::BEGIN@2 which was called: # once (46µs+0s) by Package::Stash::BEGIN@48 at line 4
BEGIN {
3128µs $Package::DeprecationManager::VERSION = '0.10';
41105µs146µs}
# spent 46µs making 1 call to Package::DeprecationManager::BEGIN@2
5
6396µs2111µs
# spent 92µs (73+19) within Package::DeprecationManager::BEGIN@6 which was called: # once (73µs+19µs) by Package::Stash::BEGIN@48 at line 6
use strict;
# spent 92µs making 1 call to Package::DeprecationManager::BEGIN@6 # spent 19µs making 1 call to strict::import
73124µs2177µs
# spent 107µs (38+70) within Package::DeprecationManager::BEGIN@7 which was called: # once (38µs+70µs) by Package::Stash::BEGIN@48 at line 7
use warnings;
# spent 107µs making 1 call to Package::DeprecationManager::BEGIN@7 # spent 70µs making 1 call to warnings::import
8
93109µs2361µs
# spent 199µs (38+161) within Package::DeprecationManager::BEGIN@9 which was called: # once (38µs+161µs) by Package::Stash::BEGIN@48 at line 9
use Carp qw( croak );
# spent 199µs making 1 call to Package::DeprecationManager::BEGIN@9 # spent 161µs making 1 call to Exporter::import
103101µs2295µs
# spent 167µs (39+128) within Package::DeprecationManager::BEGIN@10 which was called: # once (39µs+128µs) by Package::Stash::BEGIN@48 at line 10
use List::MoreUtils qw( any );
# spent 167µs making 1 call to Package::DeprecationManager::BEGIN@10 # spent 128µs making 1 call to Exporter::import
113126µs21.04ms
# spent 541µs (47+494) within Package::DeprecationManager::BEGIN@11 which was called: # once (47µs+494µs) by Package::Stash::BEGIN@48 at line 11
use Params::Util qw( _HASH );
# spent 541µs making 1 call to Package::DeprecationManager::BEGIN@11 # spent 494µs making 1 call to Exporter::import
1231.91ms284µs
# spent 62µs (40+22) within Package::DeprecationManager::BEGIN@12 which was called: # once (40µs+22µs) by Package::Stash::BEGIN@48 at line 12
use Sub::Install;
# spent 62µs making 1 call to Package::DeprecationManager::BEGIN@12 # spent 22µs making 1 call to Sub::Install::__ANON__[Sub/Install.pm:284]
13
14
# spent 2.00ms (434µs+1.57) within Package::DeprecationManager::import which was called 3 times, avg 667µs/call: # once (165µs+548µs) by Package::Stash::BEGIN@48 at line 48 of Package/Stash.pm # once (145µs+502µs) by Class::MOP::Deprecated::BEGIN@10 at line 10 of Class/MOP/Deprecated.pm # once (124µs+517µs) by Moose::Deprecated::BEGIN@10 at line 10 of Moose/Deprecated.pm
sub import {
15310µs shift;
16323µs my %args = @_;
17
18395µs321µs croak
# spent 21µs making 3 calls to Params::Util::_HASH, avg 7µs/call
19 'You must provide a hash reference -deprecations parameter when importing Package::DeprecationManager'
20 unless $args{-deprecations} && _HASH( $args{-deprecations} );
21
2237µs my %registry;
23
24340µs369µs my $import = _build_import( \%registry );
# spent 69µs making 3 calls to Package::DeprecationManager::_build_import, avg 23µs/call
25354µs3126µs my $warn = _build_warn( \%registry, $args{-deprecations}, $args{-ignore} );
# spent 126µs making 3 calls to Package::DeprecationManager::_build_warn, avg 42µs/call
26
27314µs my $caller = caller();
28
29375µs3783µs Sub::Install::install_sub(
# spent 783µs making 3 calls to Sub::Install::__ANON__[Sub/Install.pm:132], avg 261µs/call
30 {
31 code => $import,
32 into => $caller,
33 as => 'import',
34 }
35 );
36
37353µs3568µs Sub::Install::install_sub(
# spent 568µs making 3 calls to Sub::Install::__ANON__[Sub/Install.pm:132], avg 189µs/call
38 {
39 code => $warn,
40 into => $caller,
41 as => 'deprecated',
42 }
43 );
44
45356µs return;
46}
47
48
# spent 69µs within Package::DeprecationManager::_build_import which was called 3 times, avg 23µs/call: # 3 times (69µs+0s) by Package::DeprecationManager::import at line 24, avg 23µs/call
sub _build_import {
49311µs my $registry = shift;
50
51
# spent 260µs within Package::DeprecationManager::__ANON__[/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Package/DeprecationManager.pm:61] which was called 8 times, avg 32µs/call: # once (37µs+0s) by Class::MOP::Package::BEGIN@9 at line 9 of Class/MOP/Package.pm # once (34µs+0s) by Moose::Meta::Attribute::Native::Trait::BEGIN@7 at line 7 of Moose/Meta/Attribute/Native/Trait.pm # once (34µs+0s) by Moose::BEGIN@14 at line 14 of Moose.pm # once (32µs+0s) by namespace::clean::BEGIN@16 at line 16 of namespace/clean.pm # once (31µs+0s) by Moose::Util::TypeConstraints::BEGIN@28 at line 28 of Moose/Util/TypeConstraints.pm # once (31µs+0s) by Moose::Util::TypeConstraints::OptimizedConstraints::BEGIN@7 at line 7 of Moose/Util/TypeConstraints/OptimizedConstraints.pm # once (30µs+0s) by Moose::Meta::Attribute::BEGIN@16 at line 16 of Moose/Meta/Attribute.pm # once (30µs+0s) by Moose::Util::MetaRole::BEGIN@13 at line 13 of Moose/Util/MetaRole.pm
return sub {
52836µs my $class = shift;
53836µs my %args = @_;
54
55871µs $args{-api_version} ||= delete $args{-compatible};
56
57826µs $registry->{ caller() } = $args{-api_version}
58 if $args{-api_version};
59
608164µs return;
61374µs };
62}
63
64
# spent 126µs within Package::DeprecationManager::_build_warn which was called 3 times, avg 42µs/call: # 3 times (126µs+0s) by Package::DeprecationManager::import at line 25, avg 42µs/call
sub _build_warn {
6539µs my $registry = shift;
6636µs my $deprecated_at = shift;
67311µs my $ignore = shift;
68
69320µs my %ignore = map { $_ => 1 } grep { !ref } @{ $ignore || [] };
70316µs my @ignore_res = grep {ref} @{ $ignore || [] };
71
7236µs my %warned;
73
74 return sub {
75 my %args = @_ < 2 ? ( message => shift ) : @_;
76
77 my ( $package, undef, undef, $sub ) = caller(1);
78
79 my $skipped = 1;
80
81 if ( @ignore_res || keys %ignore ) {
82 while ( defined $package
83 && ( $ignore{$package} || any { $package =~ $_ } @ignore_res )
84 ) {
85 $package = caller( $skipped++ );
86 }
87 }
88
89 $package = 'unknown package' unless defined $package;
90
91 unless ( defined $args{feature} ) {
92 $args{feature} = $sub;
93 }
94
95 my $compat_version = $registry->{$package};
96
97 my $deprecated_at = $deprecated_at->{ $args{feature} };
98
99 return
100 if defined $compat_version
101 && defined $deprecated_at
102 && $compat_version lt $deprecated_at;
103
104 my $msg;
105 if ( defined $args{message} ) {
106 $msg = $args{message};
107 }
108 else {
109 $msg = "$args{feature} has been deprecated";
110 $msg .= " since version $deprecated_at"
111 if defined $deprecated_at;
112 }
113
114 return if $warned{$package}{ $args{feature} }{$msg};
115
116 $warned{$package}{ $args{feature} }{$msg} = 1;
117
118 # We skip at least two levels. One for this anon sub, and one for the
119 # sub calling it.
120 local $Carp::CarpLevel = $Carp::CarpLevel + $skipped;
121
122 Carp::cluck($msg);
123373µs };
124}
125
126110µs1;
127
128# ABSTRACT: Manage deprecation warnings for your distribution
129
- -
132=pod
133
- -
275__END__
Report produced by the NYTProf 4.04 Perl profiler, developed by Tim Bunce and Adam Kaplan.