← Index
NYTProf Performance Profile   « block view • line view • sub view »
For ddd2.pl
  Run on Tue May 25 16:52:24 2010
Reported on Tue May 25 16:57:03 2010

File /project/perl/lib/Class/DBI/Cascade/Delete.pm
Statements Executed 10
Statement Execution Time 344µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sClass::DBI::Cascade::Delete::::BEGINClass::DBI::Cascade::Delete::BEGIN
0000s0sClass::DBI::Cascade::Delete::::cascadeClass::DBI::Cascade::Delete::cascade
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Class::DBI::Cascade::Delete;
2
3=head1 NAME
4
5Class::DBI::Cascade::Delete - Delete related objects
6
7=head1 DESCRIPTION
8
9This is a Cascading Delete strategy that will delete any related
10objects.
11
12=cut
13
14393µs125µsuse strict;
# spent 25µs making 1 call to strict::import
15386µs1114µsuse warnings;
# spent 114µs making 1 call to warnings::import
16
173155µs11.36msuse base 'Class::DBI::Cascade::None';
# spent 1.36ms making 1 call to base::import
18
19sub cascade {
20 my ($self, $obj) = @_;
21 $self->foreign_for($obj)->delete_all;
22}
23
24110µs1;