File Coverage

blib/lib/MooX/NewDefaults.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	37	81.0

use 5.006;
use strict;
use warnings;

package MooX::NewDefaults;

our $VERSION = '0.001002';

# ABSTRACT: Alter attribute defaults with less pain

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

use Sub::Exporter::Progressive -setup => {
  exports => [qw( default_for )],
  groups  => {
    default => [qw( default_for )],
  },
};

sub default_for {
  my ( $name_proto, @args ) = @_;
  my $target = caller;

  my (@name_proto) = 'ARRAY' eq ref $name_proto ? @{$name_proto} : $name_proto;

  if ( @args != 1 ) {
    require Carp;
    Carp::croak(
      sprintf q[Invalid options for %s default: Single argument expected, got %s],
      join( ', ', map { "'$_'" } @name_proto ),
      scalar @args,
    );
  }
  my $coderef;
  if ( not $coderef = $target->can('has') ) {
    require Carp;
    Carp::croak( sprintf q[Calling class %s cannot "has". Did you forget to "use Moo"?], $target, );
  }

  # Calling '->has()' directly of course doesn't work, because it doesn't expect
  # $_[0] to be a class, but the attribute name.
  #
  # The class itself is baked into $target::has during `use Moo`
  return $coderef->( [ map { "+$_" } @name_proto ], default => @args );
}

1;

__END__