andrewalker

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use DateTime;

my $year = $ARGV[0] || DateTime->now->year;
my $previous;

for (

andrewalker

#!/usr/bin/env perl
# Playing with mbsync, I ended up duplicating a few hundred messages when tweaking config
# This is the fix :)
use utf8;
use warnings;
use strict;
use Mail::Box::Manager;
use List::Util qw/sum0/;

my $mgr = Mail::Box::Manager->new(access => 'rw');

andrewalker

package MyMooseExported;
use Moose ();
use Moose::Exporter;
use Log::Contextual::SimpleLogger;
use Log::Contextual qw( :log ),
    -logger => Log::Contextual::SimpleLogger->new({ levels => [qw( debug )] });

Moose::Exporter->setup_import_methods(
    with_meta => ['my_has'],
    as_is     => ['some_method'],