package BobSet;

use Moo;
use List::Util qw(min max);

extends 'Set';
no Moo;

sub numeric_min {
    my ($self) = @_;
    min @{ $self->items };
}

sub numeric_max {
    my ($self) = @_;
    max @{ $self->items };
}

1;