#!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
+
+# This test is taken from Moose :)
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 10;
{
);
}
- use List::MoreUtils qw( zip );
+ # use List::MoreUtils 'zip'
+ # code taken from List::MoreUtils
+ sub zip (\@\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@) {
+ my $max = -1;
+ $max < $#$_ && ( $max = $#$_ ) for @_;
+
+ map { my $ix = $_; map $_->[$ix], @_; } 0 .. $max;
+ }
+
coerce 'Human::EyeColor'
=> from 'ArrayRef'
# AUTHOR: Aran Clary Deltac <bluefeet@cpan.org>
-done_testing;