package Date::Simple::JSONable;

use parent 'Date::Simple';

sub TO_JSON {
    my $self = shift;
    return "$self";
}

1;

##</code><code>##

package main;
use strict;
use warnings;
use Module::That::Instantiates::A::Date::Simple;


sub Date::Simple::TO_JSON {
    return "$_[0]";
}

# The rest of your code here...