- or download this
package Set;
use Moo;
...
}
1;
- or download this
% reply
0> use Set
...
4> $s->has(42)
$res[3] = 1
- or download this
package BobUtil;
...
}
1;
- or download this
% reply
0> use Set
...
5> BobUtil::set_max($s)
$res[3] = 5
- or download this
package BobSet;
...
}
1;
- or download this
% reply
0> use BobSet
...
4> $s->numeric_max
$res[3] = 5
- or download this
package Set;
use Moo;
...
}
1;
- or download this
% reply
0> use BobSet
...
3> $s->numeric_min
Not an ARRAY reference at BobSet.pm line 11.
- or download this
% reply
0> use Set
...
4> BobUtil::set_min($s)
Not an ARRAY reference at BobUtil.pm line 8.
- or download this
package Set;
use Moo;
...
}
1;
- or download this
% reply
0> use BobSet
...
4> $s->numeric_max
$res[3] = '5'
- or download this
% reply
0> use Set
...
2> $s->add(5)
Not a HASH reference at Set.pm line 15.
- or download this
package Set;
use Moo;
...
}
1;
- or download this
% reply
0> use Set
...
3> $s->has(3)
$res[2] = 1
- or download this
% reply
0> use RememberingSet
...
6> $s->seen(2)
$res[4] = 0
- or download this
package RememberingSet;
...
}
1;
- or download this
% reply
0> use RememberingSet
...
4> $s->seen(1)
$res[3] = 3
- or download this
package RememberingSet;
...
}
1;
- or download this
package RememberingSet;
...
}
1;