← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/File/HomeDir/Driver.pm
StatementsExecuted 10 statements in 120µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1118µs8µsFile::HomeDir::Driver::::BEGIN@6File::HomeDir::Driver::BEGIN@6
1115µs25µsFile::HomeDir::Driver::::BEGIN@10File::HomeDir::Driver::BEGIN@10
1115µs6µsFile::HomeDir::Driver::::BEGIN@7File::HomeDir::Driver::BEGIN@7
1112µs2µsFile::HomeDir::Driver::::BEGIN@11File::HomeDir::Driver::BEGIN@11
1112µs2µsFile::HomeDir::Driver::::BEGIN@8File::HomeDir::Driver::BEGIN@8
0000s0sFile::HomeDir::Driver::::my_homeFile::HomeDir::Driver::my_home
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package File::HomeDir::Driver;
2
3# Abstract base class that provides no functionality,
4# but confirms the class is a File::HomeDir driver class.
5
6227µs18µs
# spent 8µs within File::HomeDir::Driver::BEGIN@6 which was called: # once (8µs+0s) by File::HomeDir::Unix::BEGIN@8 at line 6
use 5.00503;
# spent 8µs making 1 call to File::HomeDir::Driver::BEGIN@6
7211µs27µs
# spent 6µs (5+1) within File::HomeDir::Driver::BEGIN@7 which was called: # once (5µs+1µs) by File::HomeDir::Unix::BEGIN@8 at line 7
use strict;
# spent 6µs making 1 call to File::HomeDir::Driver::BEGIN@7 # spent 1µs making 1 call to strict::import
8214µs12µs
# spent 2µs within File::HomeDir::Driver::BEGIN@8 which was called: # once (2µs+0s) by File::HomeDir::Unix::BEGIN@8 at line 8
use Carp ();
# spent 2µs making 1 call to File::HomeDir::Driver::BEGIN@8
9
10221µs244µs
# spent 25µs (5+20) within File::HomeDir::Driver::BEGIN@10 which was called: # once (5µs+20µs) by File::HomeDir::Unix::BEGIN@8 at line 10
use vars qw{$VERSION};
# spent 25µs making 1 call to File::HomeDir::Driver::BEGIN@10 # spent 20µs making 1 call to vars::import
11
# spent 2µs within File::HomeDir::Driver::BEGIN@11 which was called: # once (2µs+0s) by File::HomeDir::Unix::BEGIN@8 at line 13
BEGIN {
1212µs $VERSION = '1.00';
13143µs12µs}
# spent 2µs making 1 call to File::HomeDir::Driver::BEGIN@11
14
15sub my_home {
16 Carp::croak("$_[0] does not implement compulsory method $_[1]");
17}
18
1912µs1;
20
21=pod
22
23=head1 NAME
24
25File::HomeDir::Driver - Base class for all File::HomeDir drivers
26
27=head1 DESCRIPTION
28
29This module is the base class for all L<File::HomeDir> drivers, and must
30be inherited from to identify a class as a driver.
31
32It is primarily provided as a convenience for this specific identification
33purpose, as L<File::HomeDir> supports the specification of custom drivers
34and an C<-E<gt>isa> check is used during the loading of the driver.
35
36=head1 AUTHOR
37
38Adam Kennedy E<lt>adamk@cpan.orgE<gt>
39
40=head1 SEE ALSO
41
42L<File::HomeDir>
43
44=head1 COPYRIGHT
45
46Copyright 2009 - 2011 Adam Kennedy.
47
48This program is free software; you can redistribute
49it and/or modify it under the same terms as Perl itself.
50
51The full text of the license can be found in the
52LICENSE file included with this module.
53
54=cut