sub new
{
    my $class = shift;
    my $number = shift;
    my %args = (%defaults, @_);

    #...