Solution for custom DH scripts

gistfile1.txt

package PerlDance::Schema::Upgrades::2016;

use Moo;
use DateTime;

has schema => (
    is => 'ro',
    required => 1,
);

sub upgrade {
    my $self = shift;
    my $schema = $self->schema;

    my $conf = $schema->resultset('Conference')->create(
        {name => 'Perl Dancer Conference 2016',
         start_date => DateTime->new(
             year => 2016,
             month => 9,
             day => 21,
         ),
         end_date => DateTime->new(
             year => 2016,
             month => 9,
             day => 22,
         ),
     },
    );
}

sub clear {
    my $self = shift;
    my $schema = $self->schema;

    my $conf = $schema->resultset('Conference')->find(
        {name => 'Perl Dancer Conference 2016'},
    );

    if ($conf) {
        $conf->delete;
    }
}

1;