Checking in changes prior to tagging of version 2.66.

[MogileFS-Server.git] / lib / MogileFS / Exception.pm

package MogileFS::Exception;
use strict;
use warnings;

sub new {
    my ($class, $errcode) = @_;
    return bless {
        code => $errcode,
    }, $class;
}

sub throw {
    my $self = shift;
    die $self;
}

sub code { $_[0]{code} }

1;