File Coverage

blib/lib/DBICx/Hooks.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	32	32	100.0

package DBICx::Hooks;
BEGIN {
  $DBICx::Hooks::VERSION = '0.003';
}

# ABSTRACT: Provide hooks into DBIx::Class create()/update()/delete()

use strict;
use warnings;
use DBICx::Hooks::Registry;

sub insert {
  my $self = shift;
  my $ret  = $self->next::method(@_);

  $_->($self) for dbic_hooks_for($self, 'create');

  $ret;
}


sub update {
  my $self = shift;
  my $ret  = $self->next::method(@_);

  $_->($self) for dbic_hooks_for($self, 'update');

  $ret;
}


sub delete {
  my $self = shift;
  my $ret  = $self->next::method(@_);

  $_->($self) for dbic_hooks_for($self, 'delete');

  $ret;
}


1;


__END__