File Coverage

lib/XML/Schema/Exception.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	22	26	84.6

#============================================================= -*-perl-*-
#
# XML::Schema::Exception
#
# DESCRIPTION
#   Exception class for throwing around as errors.
#
# AUTHOR
#   Andy Wardley
#
# COPYRIGHT
#   Copyright (C) 2001 Canon Research Centre Europe Ltd.
#   All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
# REVISION
#   $Id: Exception.pm,v 1.1.1.1 2001/08/29 14:30:17 abw Exp $
#
#========================================================================

package XML::Schema::Exception;

use strict;
use vars qw( $VERSION $DEBUG $ERROR );

$VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)\.(\d+)/);
$DEBUG   = 0 unless defined $DEBUG;
$ERROR   = '';

use overload q|""| => "text";


sub new {
    my ($class, $type, $info) = @_;
    bless {
	type => $type,
	info => $info,
    }, $class;
}

sub type { $_[0]->{ type } }
sub info { $_[0]->{ info } }

sub text {
    my $self = shift;
    sprintf("[%s] %s", @$self{ qw( type info ) });
}

1;

__END__