sub as_string {
    my $self = shift;
    join '-', $self->date;
}