File Coverage

blib/lib/Net/Proxmox/VE/Exception.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	2	6	33.3
subroutine	8	8	100.0
pod	5	5	100.0
total	41	45	91.1

#!/bin/false
# vim: softtabstop=4 tabstop=4 shiftwidth=4 ft=perl expandtab smarttab
# PODNAME: Net::Proxmox::VE::Exception
# ABSTRACT: Functions for the 'cluster' portion of the API

use strict;
use warnings;

package Net::Proxmox::VE::Exception;
$Net::Proxmox::VE::Exception::VERSION = '0.44';

sub _new {

    my ($c, %args) = @_;
    my $class = ref($c) || $c;
    my $self  = \%args;

    return bless $self, $class;

}


sub as_string {
    my $self = shift;
    sprintf '%s at %s line %s.', $self->message, $self->file, $self->line;
}


sub file { return shift->{file} }


sub line { return shift->{line} }


sub message { return shift->{message} }


sub throw {

    my ($class, $arg) = @_;
    $class = ref $class || $class;

    my %args;
    if ( ref $arg ) {
        %args = %$arg;
    }
    else {
        $args{message} = $arg;
    }

    ( $args{package}, $args{file}, $args{line} ) = caller(0);
    $args{subroutine} = ( caller(1) )[3];

    die $class->_new(%args);

}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Net::Proxmox::VE::Exception - Functions for the 'cluster' portion of the API

=head1 VERSION

version 0.44

=head1 SYNOPSIS

  use Net::Proxmox::VE::Exception;
  Net::Proxmox::VE::Exception->throw( "What went wrong" )

=head1 INTERNAL METHODS

=head2 _new

This is a standard new() interface, but is intended for internal usage
rather than as the public interface.

Any argument will be included in the object.

=head1 PUBLIC METHODS

=head2 as_string

The exception details as human readable string

  $obj->as_string()

=head2 file

File that called the function

  $obj->file()

=head2 line

Line in the file that called the function

  $obj->line()

=head2 message

Message why the exception occured

  $obj->message()

=head2 throw

This is intended as the public interface.

To be used like this

  use Net::Proxmox::VE::Exception;
  Net::Proxmox::VE::Exception->throw( "message")
  Net::Proxmox::VE::Exception->throw( { message => "message" } )

=head1 SEE ALSO

L<Net::Proxmox::VE>

=head1 AUTHOR

Dean Hamstead <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2026 by Dean Hamstead.

This is free software, licensed under:

  The MIT (X11) License

=cut