App-SpamcupNG

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::More" : "0.88",
            "Test::Pod" : "1.41",
            "perl" : "5.006"
         }
      },
      "runtime" : {
         "requires" : {
            "Class::Accessor" : "0.51",
            "DBD::SQLite" : "1.74",
            "DBI" : "1.643",
            "DateTime" : "1.59",
            "HTML::Form" : "6.11",
            "HTML::TreeBuilder::XPath" : "0.14",
            "HTTP::CookieJar::LWP" : "0.014",
            "HTTP::Cookies" : "6.01",
            "HTTP::Request" : "6.44",
            "HTTP::Request::Common" : "6.44",
            "LWP::Protocol::https" : "6.14",
            "LWP::UserAgent" : "6.72",
            "Log::Log4perl" : "1.57",
            "Mozilla::PublicSuffix" : "v1.0.6",

META.yml  view on Meta::CPAN

  App::SpamcupNG::Warning::Factory:
    file: lib/App/SpamcupNG/Warning/Factory.pm
    version: '0.020'
  App::SpamcupNG::Warning::Yum:
    file: lib/App/SpamcupNG/Warning/Yum.pm
    version: '0.020'
requires:
  Class::Accessor: '0.51'
  DBD::SQLite: '1.74'
  DBI: '1.643'
  DateTime: '1.59'
  HTML::Form: '6.11'
  HTML::TreeBuilder::XPath: '0.14'
  HTTP::CookieJar::LWP: '0.014'
  HTTP::Cookies: '6.01'
  HTTP::Request: '6.44'
  HTTP::Request::Common: '6.44'
  LWP::Protocol::https: '6.14'
  LWP::UserAgent: '6.72'
  Log::Log4perl: '1.57'
  Mozilla::PublicSuffix: v1.0.6

Makefile.PL  view on Meta::CPAN

  "EXE_FILES" => [
    "bin/spamcup"
  ],
  "LICENSE" => "gpl",
  "MIN_PERL_VERSION" => "5.014004",
  "NAME" => "App::SpamcupNG",
  "PREREQ_PM" => {
    "Class::Accessor" => "0.51",
    "DBD::SQLite" => "1.74",
    "DBI" => "1.643",
    "DateTime" => "1.59",
    "HTML::Form" => "6.11",
    "HTML::TreeBuilder::XPath" => "0.14",
    "HTTP::CookieJar::LWP" => "0.014",
    "HTTP::Cookies" => "6.01",
    "HTTP::Request" => "6.44",
    "HTTP::Request::Common" => "6.44",
    "LWP::Protocol::https" => "6.14",
    "LWP::UserAgent" => "6.72",
    "Log::Log4perl" => "1.57",
    "Mozilla::PublicSuffix" => "1.0.6",

Makefile.PL  view on Meta::CPAN

  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Class::Accessor" => "0.51",
  "DBD::SQLite" => "1.74",
  "DBI" => "1.643",
  "DateTime" => "1.59",
  "ExtUtils::MakeMaker" => 0,
  "File::Spec" => 0,
  "HTML::Form" => "6.11",
  "HTML::TreeBuilder::XPath" => "0.14",
  "HTTP::CookieJar::LWP" => "0.014",
  "HTTP::Cookies" => "6.01",
  "HTTP::Request" => "6.44",
  "HTTP::Request::Common" => "6.44",
  "LWP::Protocol::https" => "6.14",
  "LWP::UserAgent" => "6.72",

cpanfile  view on Meta::CPAN

# This file is generated by Dist::Zilla
# Prereqs are detected automatically. You do not need to edit this file

requires "Class::Accessor" => "0.51";
requires "DBD::SQLite" => "1.74";
requires "DBI" => "1.643";
requires "DateTime" => "1.59";
requires "HTML::Form" => "6.11";
requires "HTML::TreeBuilder::XPath" => "0.14";
requires "HTTP::CookieJar::LWP" => "0.014";
requires "HTTP::Cookies" => "6.01";
requires "HTTP::Request" => "6.44";
requires "HTTP::Request::Common" => "6.44";
requires "LWP::Protocol::https" => "6.14";
requires "LWP::UserAgent" => "6.72";
requires "Log::Log4perl" => "1.57";
requires "Mozilla::PublicSuffix" => "v1.0.6";

lib/App/SpamcupNG/Summary/Recorder.pm  view on Meta::CPAN

package App::SpamcupNG::Summary::Recorder;
use strict;
use warnings;
use Carp       qw(confess);
use Hash::Util qw(lock_hash);
use DBI 1.643;
use DateTime 1.59;

our $VERSION = '0.020'; # VERSION

=pod

=head1 NAME

App::SpamcupNG::Summary::Recorder - class to save Summary to SQLite3

=head1 SYNOPSIS

lib/App/SpamcupNG/Summary/Recorder.pm  view on Meta::CPAN

    $self->{dbh}->do(
        q{
INSERT INTO summary_receiver (summary_id, receiver_id, report_id)
VALUES(?, ?, ?)
        }, undef, @values
    ) or confess $self->{dbh}->errstr;
}

sub _save_summary {
    my ( $self, $summary, $fields_ref ) = @_;
    my $now    = $self->{now} ? $self->{now} : DateTime->now->epoch;
    my $insert = q{
INSERT INTO summary
(tracking_id, created, charset_id, content_type_id, age, age_unit_id, mailer_id)
VALUES (?, ?, ?, ?, ?, ?, ?)
};
    my @values = (
        $summary->get_tracking_id, $now,
        $fields_ref->{charset},    $fields_ref->{content_type},
        $summary->get_age,         $fields_ref->{age_unit},
        $fields_ref->{mailer}

t/00-report-prereqs.dd  view on Meta::CPAN

                                      'Test::More' => '0.88',
                                      'Test::Pod' => '1.41',
                                      'perl' => '5.006'
                                    }
                    },
       'runtime' => {
                      'requires' => {
                                      'Class::Accessor' => '0.51',
                                      'DBD::SQLite' => '1.74',
                                      'DBI' => '1.643',
                                      'DateTime' => '1.59',
                                      'HTML::Form' => '6.11',
                                      'HTML::TreeBuilder::XPath' => '0.14',
                                      'HTTP::CookieJar::LWP' => '0.014',
                                      'HTTP::Cookies' => '6.01',
                                      'HTTP::Request' => '6.44',
                                      'HTTP::Request::Common' => '6.44',
                                      'LWP::Protocol::https' => '6.14',
                                      'LWP::UserAgent' => '6.72',
                                      'Log::Log4perl' => '1.57',
                                      'Mozilla::PublicSuffix' => 'v1.0.6',