view release on metacpan or  search on metacpan

xt/usage.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

use Test::More;
use Test::Differences;

use Class::Date qw(date);
use Capture::Tiny qw(capture_merged);

sub basic_usage {

    my $now = date('2014-04-21 16:11:40');

    no warnings 'once';
    no warnings 'redefine';