File Coverage

blib/lib/HTTP/Throwable/Variant.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	19	22	86.3

package HTTP::Throwable::Variant;
our $AUTHORITY = 'cpan:STEVAN';
$HTTP::Throwable::Variant::VERSION = '0.027';
use strict;
use warnings;

use Package::Variant 1.002000
  importing => ['Moo', 'MooX::StrictConstructor'],
  subs      => [ qw(extends with) ];

sub make_variant {
    my ($class, $target_package, %arguments) = @_;
    extends @{ $arguments{superclasses} }
        if  @{ $arguments{superclasses} };
    with @{ $arguments{roles} };
}

1;

=pod

=encoding UTF-8

=head1 NAME

HTTP::Throwable::Variant - a package that constructs Moo-based HTTP::Throwables for you

=head1 VERSION

version 0.027

=head1 OVERVIEW

This package is used by L to build
exceptions at runtime.  The exceptions are L-based, with
L applied as well.  It takes two arguments:
C, an arrayref of classes to extend, and C, an
arrayref of roles to compose.

=head1 AUTHORS

=over 4

=item *

Stevan Little

=item *

Ricardo Signes

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Infinity Interactive, Inc.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__