File Coverage

blib/lib/Class/ReluctantORM/SchemaCache/ClearOnError.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 17 76.4


line stmt bran cond sub pod time code
1             package Class::ReluctantORM::SchemaCache::ClearOnError;
2 1     1   5 use strict;
  1         1  
  1         30  
3 1     1   29 use warnings;
  1         2  
  1         28  
4 1     1   5 use base 'Class::ReluctantORM::SchemaCache::Simple';
  1         2  
  1         886  
5              
6             our $DEBUG = 0;
7              
8             sub notify_sql_error {
9 0     0 1   my $self = shift;
10 0           my $exception = shift;
11 0           $self->clear();
12             }
13              
14             1;