← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:22:52 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/LockFile/Lock/Simple.pm
StatementsExecuted 9 statements in 199µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11121µs28µsLockFile::Simple::::BEGIN@16 LockFile::Simple::BEGIN@16
1119µs48µsLockFile::Lock::Simple::::BEGIN@23LockFile::Lock::Simple::BEGIN@23
0000s0sLockFile::Lock::Simple::::fileLockFile::Lock::Simple::file
0000s0sLockFile::Lock::Simple::::formatLockFile::Lock::Simple::format
0000s0sLockFile::Lock::Simple::::makeLockFile::Lock::Simple::make
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1;# $Id
2;#
3;# @COPYRIGHT@
4;#
5;# $Log: Simple.pm,v $
6;# Revision 0.3 2007/09/28 19:18:27 jv
7;# Track where lock was issued in the code.
8;#
9;# Revision 0.2.1.1 2000/01/04 21:16:35 ram
10;# patch1: track where lock was issued in the code
11;#
12;# Revision 0.2 1999/12/07 20:51:04 ram
13;# Baseline for 0.2 release.
14;#
15
16338µs234µs
# spent 28µs (21+6) within LockFile::Simple::BEGIN@16 which was called: # once (21µs+6µs) by Tapper::Base::BEGIN@12 at line 16
use strict;
# spent 28µs making 1 call to LockFile::Simple::BEGIN@16 # spent 6µs making 1 call to strict::import
17
18########################################################################
19package LockFile::Lock::Simple;
20
21151µsrequire LockFile::Lock;
22
23398µs287µs
# spent 48µs (9+39) within LockFile::Lock::Simple::BEGIN@23 which was called: # once (9µs+39µs) by Tapper::Base::BEGIN@12 at line 23
use vars qw(@ISA);
# spent 48µs making 1 call to LockFile::Lock::Simple::BEGIN@23 # spent 39µs making 1 call to vars::import
24
2518µs@ISA = qw(LockFile::Lock);
26
27#
28# ->make
29#
30# Creation routine
31#
32# Attributes:
33#
34# scheme the LockFile::* object that created the lock
35# file the locked file
36# format the format used to create the lockfile
37# filename where lock was taken
38# line line in filename where lock was taken
39#
40sub make {
41 my $self = bless {}, shift;
42 my ($scheme, $file, $format, $filename, $line) = @_;
43 $self->{'file'} = $file;
44 $self->{'format'} = $format;
45 $self->_lock_init($scheme, $filename, $line);
46 return $self;
47}
48
49#
50# Attribute access
51#
52
53sub file { $_[0]->{'file'} }
54sub format { $_[0]->{'format'} }
55
5612µs1;
57