File Coverage

blib/lib/MooseX/SingleArg/Meta/Object.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

<!--
/* default style sheet generated by perltidy */
body {background: #FFFFFF; color: #000000}
pre { color: #000000; 
      background: #FFFFFF;
      font-family: courier;
    } 

.c  { color: #000000;} /* comment */
.cm { color: #000000;} /* comma */
.co { color: #000000;} /* colon */
.h  { color: #000000;} /* here-doc-target */
.hh { color: #000000;} /* here-doc-text */
.i  { color: #000000;} /* identifier */
.j  { color: #000000;} /* label */
.k  { color: #000000;} /* keyword */
.m  { color: #000000;} /* subroutine */
.n  { color: #000000;} /* numeric */
.p  { color: #000000;} /* paren */
.pd { color: #000000;} /* pod-text */
.pu { color: #000000;} /* punctuation */
.q  { color: #000000;} /* quote */
.s  { color: #000000;} /* structure */
.sc { color: #000000;} /* semicolon */
.v  { color: #000000;} /* v-string */
.w  { color: #000000;} /* bareword */
-->

perltidy

package # Hide from the indexer.
    MooseX::SingleArg::Meta::Object;
use Moose::Role;

use Carp qw( croak );

around BUILDARGS => sub{
    my $orig  = shift;
    my $class = shift;

    my $meta = $class->meta();
    croak("single_arg() has not been called for $class") if !$meta->has_single_arg();

    my $force = $meta->force_single_arg();
    croak("$class accepts only one argument") if $force and @_>1;

    if (@_==1 and ($force or ref($_[0]) ne 'HASH')) {
        return $class->$orig( $meta->single_arg() => $_[0] );
    }

    return $class->$orig( @_ );
};

1;