File Coverage

blib/lib/Class/DBI/Cascade/Delete.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Class::DBI::Cascade::Delete;
2              
3             =head1 NAME
4            
5             Class::DBI::Cascade::Delete - Delete related objects
6            
7             =head1 DESCRIPTION
8            
9             This is a Cascading Delete strategy that will delete any related
10             objects.
11            
12             =cut
13              
14 6     6   82 use strict;
  6         59  
  6         93  
15 6     6   93 use warnings;
  6         53  
  6         93  
16              
17 6     6   111 use base 'Class::DBI::Cascade::None';
  6         57  
  6         111  
18              
19             sub cascade {
20 1     1 1 11 my ($self, $obj) = @_;
21 1         21 $self->foreign_for($obj)->delete_all;
22             }
23              
24             1;
25