view release on metacpan or  search on metacpan

lib/Class/DBI/Cascade/None.pm  view on Meta::CPAN

53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
                $self->foreign_for($obj)->delete_all;
        }
 
=cut
 
use strict;
use warnings;
 
sub new {
        my ($class, $rel) = @_;
        bless { _rel => $rel } => $class;
}
 
sub foreign_for {
        my ($self, $obj) = @_;
        return $self->{_rel}
                ->foreign_class->search($self->{_rel}->args->{foreign_key} => $obj->id);
}
 
sub cascade { return; }