File Coverage

blib/lib/Lingua/FR/Ladl/Exceptions.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Lingua::FR::Ladl::Exceptions;

use warnings;
use strict;

use version; our $VERSION = qv('0.0.3');

use Exception::Class (
                      'X::NoTableData' => {
                                           fields => [ 'table' ],
                                          },
                      'X::NoGraphData' => {
                                           fields => [ 'graph' ],
                                          },
                     );

sub X::NoTableData::full_message {
  my ($self) = @_;

  my $msg = $self->message();

  return $msg.'Need table data for "'.$self->table()->get_name().q(").qq(, maybe you should call the load method first?\n);
};

sub X::NoGraphData::full_message {
  my ($self) = @_;

  my $msg = $self->message();

  return $msg.'Graph not initialized: "'.$self->graph()->get_name().q(").qq(, maybe you should call the load method first?\n);
};



1;
__END__