view release on metacpan or  search on metacpan

lib/App/SCM/Digest.pm  view on Meta::CPAN

use File::Path;
use File::ReadBackwards;
use File::Temp qw(tempdir);
use List::Util qw(first);
use POSIX qw();

use constant PATTERN => '%FT%T';
use constant EMAIL_ATTRIBUTES => (
    content_type => 'text/plain',
    disposition  => 'attachment',
    charset      => 'UTF-8',
    encoding     => 'quoted-printable',
);

our $VERSION = '0.14';

sub new
{
    my ($class, $config) = @_;
    my $self = { config => $config };
    bless $self, $class;