File Coverage

lib/Pony/Object/Throwable.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	1	2	50.0
condition	3	5	60.0
subroutine	3	3	100.0
pod	0	1	0.0
total	19	23	82.6

# Class: Pony::Object::Throwable
#   Simplest Exception class.

# "The owls are not what they seem"
package Pony::Object::Throwable {
  use Pony::Object;

  protected message => '';
  protected package => '';
  protected file    => '';
  protected line    => '';

  # Method: throw
  #   Say "hello" and raise Exception.
  #
  # Parameters:
  #   $this - Str||Pony::Object - self
  #   $message - Str - some funny message for poor users.
  sub throw : Public {
    my $this = shift; # pkg || obj
    $this = $this->new unless ref $this;
    $this->message = shift || "no comments";
    ($this->package, $this->file, $this->line) = @_ || caller;

    printf STDERR "\n\"%s\" at %s (%s:%s)\n",
      $this->message, $this->package, $this->file, $this->line;

    die $this;
  }
}

1;

__END__