Help for this page

Select Code to Download


  1. or download this
    our @ISA = qw(
    Collection::Bounded
    Collection::Unique
    Collection::Generic
);
  2. or download this
    sub add {
    my $self = shift;
...
    return undef if $self->contains($thing);
    return $self->SUPER::add($thing);
}
  3. or download this
    sub add {
    my $self = shift;
...

    return $collection->add($thing);
}
  4. or download this
    sub AUTOLOAD {
    my $self = shift;
...
    $func =~ s/.*:://;
    return $self->{collection}->$func;
}