use strict;
use warnings;
+# This module doesn't really need these pragmas - this is just for the benefit
+# of prereq scanning.
+require namespace::clean 0.20;
+require namespace::autoclean 0.11;
+
use Moose 2.00 ();
use Moose::Exporter;
use Moose::Util;
);
sub class_has {
- my $meta = shift;
- my $name = shift;
+ my $meta = shift;
+ my $name = shift;
my $attrs = ref $name eq 'ARRAY' ? $name : [$name];
# Copied from Moose::Util in 2.06
sub _caller_info {
- my $level = @_ ? ($_[0] + 1) : 2;
+ my $level = @_ ? ( $_[0] + 1 ) : 2;
my %info;
@info{qw(package file line)} = caller($level);
return \%info;