File Coverage

lib/File/Properties/Error.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	12	0.0
condition	0	6	0.0
subroutine	5	7	71.4
pod	1	2	50.0
total	21	63	33.3

# ----------------------------------------------------------------------------
#
# This is an exception handling module for File::Properties.
#
# Copyright © 2010,2011 Brendt Wohlberg
# See distribution LICENSE file for license details.
#
# Most recent modification: 5 November 2011
#
# ----------------------------------------------------------------------------

package File::Properties::Error;
our $VERSION = 0.01;

require 5.005;
use strict;
use warnings;
use Error qw(:try);

use base qw(Error);
use overload ('""' => 'string');
$File::Properties::Error::Debug = 0;


# ----------------------------------------------------------------------------
# Constructor
# ----------------------------------------------------------------------------
sub new {
  my $self = shift;
  my $text = "" . shift;
  my $obrf = shift;

  local $Error::Depth = $Error::Depth + 1;
  local $Error::Debug = 1 if ($File::Properties::Error::Debug > 1);

  $self->SUPER::new('-text' => $text, '-object' => $obrf);
}


# ----------------------------------------------------------------------------
# Construct string from object
# ----------------------------------------------------------------------------
sub string {
  my $self = shift;

  my $txt;
  if ($File::Properties::Error::Debug == 0) {
    $txt = $self->text . "\n";
  } else {
    $txt = $self->stacktrace if ($File::Properties::Error::Debug);
  }

 if ($File::Properties::Error::Debug > 2 and defined($self->object)
   and ref($self->object) =~ /^File::/) {
    $txt .= "Exception occurred in object: " .$self->object . "\n";
    if ($File::Properties::Error::Debug > 3) {
      $txt .= "Object state:\n";
      my ($k,$v);
      foreach $k ( sort keys %{$self->object} ) {
	$v = defined $self->object->{$k} ? $self->object->{$k} : "[undef]";
	$txt .= "  $k: $v\n";
      }
    }
  }

  return $txt;
}


# ----------------------------------------------------------------------------
# End of method definitions
# ----------------------------------------------------------------------------


1;
__END__