BusyBird-Input-Feed

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "BusyBird::DateTime::Format" : "0.04",
            "Carp" : "0",
            "DateTime" : "0",
            "DateTime::Format::ISO8601" : "0",
            "JSON" : "0",
            "LWP::UserAgent" : "0",
            "Try::Tiny" : "0",
            "URI" : "0",
            "WWW::Favicon" : "0",
            "XML::FeedPP" : "0"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "Test::Deep" : "0.084",
            "Test::Exception" : "0",

META.yml  view on Meta::CPAN

    - inc
  file:
    - README.pod
requires:
  BusyBird::DateTime::Format: '0.04'
  Carp: '0'
  DateTime: '0'
  DateTime::Format::ISO8601: '0'
  JSON: '0'
  LWP::UserAgent: '0'
  Try::Tiny: '0'
  URI: '0'
  WWW::Favicon: '0'
  XML::FeedPP: '0'
resources:
  bugtracker: https://github.com/debug-ito/BusyBird-Input-Feed/issues
  repository: git://github.com/debug-ito/BusyBird-Input-Feed.git
version: '0.07'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

cpanfile  view on Meta::CPAN

requires 'XML::FeedPP' => '0';
requires 'BusyBird::DateTime::Format' => '0.04';
requires 'DateTime::Format::ISO8601' => '0';
requires 'DateTime' => '0';
requires 'Try::Tiny' => '0';
requires 'WWW::Favicon' => '0';
requires 'LWP::UserAgent' => '0';
requires 'Carp' => '0';
requires 'JSON' => '0';
requires 'URI';

on 'test' => sub {
    requires 'Test::More' => "0";
    requires 'Test::Deep' => '0.084';
    requires 'File::Spec' => '0';

lib/BusyBird/Input/Feed.pm  view on Meta::CPAN

package BusyBird::Input::Feed;
use strict;
use warnings;
use XML::FeedPP;
use DateTime::Format::ISO8601;
use BusyBird::DateTime::Format;
use DateTime;
use Try::Tiny;
use Carp;
use WWW::Favicon ();
use LWP::UserAgent;
use URI;

our $VERSION = "0.07";

our @CARP_NOT = qw(Try::Tiny XML::FeedPP);

sub new {
    my ($class, %args) = @_;
    my $self = bless {
        use_favicon => defined($args{use_favicon}) ? $args{use_favicon} : 1,
        favicon_detector => WWW::Favicon->new,
        user_agent => defined($args{user_agent}) ? $args{user_agent} : do {
            my $ua = LWP::UserAgent->new;
            $ua->env_proxy;
            $ua->timeout(30);