use strict;
use warnings;
-use Storable qw(dclone);
-use HTTP::Status qw(:constants);
+use HTTP::Status qw(:constants);
+use Storable qw(dclone);
use overload '""' => sub {local $@; shift->stringify};
use overload 'cmp' => sub {
my ($a, $b) = @_;
- local $@;
+ local $@;
return "$a" cmp "$b"; # compare as string
};
};
foreach my $p (keys %param) {
- next if defined($self->{$p});
+ next if defined($self->{$p});
my $v = $param{$p};
$self->{$p} = ref($v) ? dclone($v) : $v;
}
- return bless $self;
+ return bless $self, $class;
}
sub raise {
my $exc = PVE::Exception->new(@_);
-
+
my ($pkg, $filename, $line) = caller;
$exc->{filename} = $filename;
my $param = { code => HTTP_FORBIDDEN };
my $msg = "Permission check failed";
-
+
$msg .= " ($what)" if $what;
my $exc = PVE::Exception->new("$msg\n", %$param);
-
+
my ($pkg, $filename, $line) = caller;
$exc->{filename} = $filename;
$param->{usage} = $usage if $usage;
my $exc = PVE::Exception->new("Parameter verification failed.\n", %$param);
-
+
my ($pkg, $filename, $line) = caller;
$exc->{filename} = $filename;
sub stringify {
my $self = shift;
-
+
my $msg = $self->{code} ? "$self->{code} $self->{msg}" : $self->{msg};
if ($msg !~ m/\n$/) {
sub PROPAGATE {
my ($self, $file, $line) = @_;
- push @{$self->{propagate}}, [$file, $line];
+ push @{$self->{propagate}}, [$file, $line];
return $self;
}