File Coverage

blib/lib/Net/API/RPX/Exception/Usage.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	29	29	100.0

use 5.006;
use strict;
use warnings;

package Net::API::RPX::Exception::Usage;

# ABSTRACT: For when the interface is used wrongly

our $VERSION = '1.000001';

our $AUTHORITY = 'cpan:KONOBI'; # AUTHORITY

use Moose qw( has extends around );
use namespace::autoclean;

extends 'Net::API::RPX::Exception';

has 'required_parameter' => ( isa => 'Str', is => 'rw', required => 1 );
has 'method_name'        => ( isa => 'Str', is => 'rw', required => 1 );
has 'signature'          => ( isa => 'Str', is => 'rw', required => 1 );
has 'package'            => ( isa => 'Str', is => 'rw', required => 1 );

sub _signature_string {
  my ($self) = @_;
  return $self->method_name . '(' . $self->signature . ')';
}

sub _explanation {
  my ($self) = @_;
  return sprintf q{Method %s on package %s expects the parameter "%s"} . qq{\n\n} . qq{\tUsage:\t%s\n}, $self->method_name,
    $self->package,
    $self->required_parameter, $self->_signature_string;
}

around message => sub {
  my ( $orig, $self, @args ) = @_;
  return $self->$orig(@args) . qq{\n} . $self->_explanation;
};

__PACKAGE__->meta->make_immutable( inline_constructor => 0 );

no Moose;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Net::API::RPX::Exception::Usage - For when the interface is used wrongly

=head1 VERSION

version 1.000001

=head1 AUTHORS

=over 4

=item *

Scott McWhirter <[e-mail]>

=item *

Kent Fredric <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2017 by Cloudtone Studios.

This is free software, licensed under:

  The (three-clause) BSD License

=cut