File Coverage

blib/lib/DBIx/Class/Result/Validation/VException.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod n/a
total 20 22 90.9


line stmt bran cond sub pod time code
1             package DBIx::Class::Result::Validation::VException;
2              
3 1     1   8 use strict;
  1         3  
  1         34  
4 1     1   8 use warnings;
  1         2  
  1         34  
5 1     1   672 use Moose;
  1         423545  
  1         8  
6             use overload '""' => sub {
7 0     0   0 shift->message;
8             },
9 1     1   6785 fallback => 1;
  1         3  
  1         10  
10              
11             =head1 NAME
12              
13             DBIx::Class::Result::Validation::VException - Exception for Validation
14              
15             =head1 VERSION
16              
17             Version 0.11
18              
19             =cut
20              
21             our $VERSION = '0.15';
22              
23             =head1 SYNOPSIS
24              
25             DBIx::Class::Result::Validation::VException.
26              
27             croak( DBIx::Class::Result::Validation::VException->new( message => "my message", object => $object);
28              
29             =cut
30              
31             has object => (
32             is => 'rw',
33             isa => 'DBIx::Class::Row',
34              
35             # required => 0,
36             );
37              
38             has message => (
39             is => 'rw',
40             isa => 'Str',
41              
42             # required => 0,
43             );
44              
45 1     1   129 no Moose;
  1         2  
  1         6  
46              
47             1;