gistfile1.txt

#! /usr/bin/env perl

use strict;
use warnings;

use Dancer ':script';
use Getopt::Long;
use Dancer::Plugin::Interchange6;

my $duration;
GetOptions (
        "expire=s"  => \$duration,
) or die("Error in command line arguments\n");

my $dsn = shift;
my $schema = shop_schema;

$duration ||= config->{session_expires};

$schema->resultset('Session')->expire($duration);