Pangloss::Concept::Error - errors specific to Concepts.

Pangloss documentation Contained in the Pangloss distribution.

Index

Code Index:

NAME

Top

Pangloss::Concept::Error - errors specific to Concepts.

SYNOPSIS

Top

  use Pangloss::Concept::Error;
  use Pangloss::StoredObject::Error;

  throw Pangloss::Concept::Error(flag => eExists, concept => $concept);
  throw Pangloss::Concept::Error(flag => eNonExistent, name => $name);
  throw Pangloss::Concept::Error(flag => eInvalid, concept => $concept,
                              invalid => {eNameRequired => 1});

  # with caught errors:
  print $e->concept->name;

DESCRIPTION

Top

Concept Errors class. Inherits interface from Pangloss::StoredObject::Error. May contain a concept object associated with the error.

METHODS

Top

$e->concept

set/get Pangloss::Concept for this error.

AUTHOR

Top

Steve Purkis <spurkis@quiup.com>

SEE ALSO

Top

Pangloss::Error, Pangloss::Concept, Pangloss::Concepts

Pangloss documentation Contained in the Pangloss distribution. 
package Pangloss::Concept::Error;

use strict;
use warnings::register;

use Pangloss::Concept;

use base      qw( Pangloss::StoredObject::Error );
use accessors qw( concept );

our $VERSION  = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.8 $ '))[2];

sub new {
    my $class = shift;
    my %args  = @_;
    local $Error::Depth = $Error::Depth + 1;
    if (my $name = delete $args{name}) {
	$args{concept} = new Pangloss::Concept()->name($name);
    }
    $class->SUPER::new(map { /^concept$/ ? '-concept' : $_; } %args);
}

sub stringify {
    my $self = shift;
    my $str  = $self->SUPER::stringify . ':concept';
    $str    .= '=' . $self->concept->key if $self->concept;
    return $str;
}

1;

__END__

#------------------------------------------------------------------------------