File Coverage

blib/lib/DBIx/Class/Result/Validation/VException.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package DBIx::Class::Result::Validation::VException;
2              
3 4     4   12 use strict;
  4         5  
  4         82  
4 4     4   13 use warnings;
  4         3  
  4         71  
5 4     4   1827 use Moose;
  4         1172908  
  4         22  
6             use overload '""' => sub {
7 2     2   72 shift->message;
8             },
9 4     4   18276 fallback => 1;
  4         6  
  4         53  
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.11';
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 4     4   403 no Moose;
  4         9  
  4         13  
46              
47             1;