Select Code to Download

# t/22-date.t
{ # date()
...
    my $ret = $obj->date({ get => 'month' });
    ok( $ret =~ m{ \A \d{4}-\d{2} \z }xms, "called with get=>month wor
+ks out ok" );
}

{ # add_trace() trivial
   
...
    my $type = reftype $error->stack();
    is ( $type, 'ARRAY', "Error's stack trace is an array ref upon suc
+cess" );
}

# in the package
sub new {
...
    # do attach() stuff with $self, and...:
    return $self->{ sub_details };
}

sub attach {

...

    return $self->{ attachments }; # aoh
}