use strict;

package UtilOption;

use base qw/Util::Any/;
use strict;

our $Utils = {
              list  => [
                         [
                          'List::Util', '',
                          {
                           'first' => 'list_first',
                           'sum'   => 'lsum',
                           -except => ['reduce', 'shuffle'],
                          }
                         ]
                        ],
             };


UtilOption->import(qw/list/);
use Test::More qw/no_plan/;

ok(defined &list_first, 'defined first as list_first');
ok(defined &lsum, 'defined sum as lsum');
ok(defined &min, 'defined min');
ok(defined &minstr, 'defined minstr');
ok(!defined &reduce, 'not defined reduce');
ok(!defined &shuffle, 'not defined shuffle');