Yet Another CPAN Grep

CPAN-Testers-Metabase-Feed ( D/DA/DAGOLDEN/CPAN-Testers-Metabase-Feed-0.001.tar.gz, DAGOLDEN, 2010; MetaCPAN )

CPAN-Testers-Metabase-Feed/lib/CPAN/Testers/Metabase/Feed.pm ( view source; MetaCPAN )


use Data::GUID;
use DateTime;
use DateTime::Format::ISO8601;
use File::Slurp qw/write_file/;
use JSON;
use Metabase::Librarian 0.013; # bug fixes on extraction
use XML::Feed;

use namespace::autoclea

ersion = "1.0";

  my $mb = $self->ct_metabase;
  my $librarian = $mb->public_librarian;
  my $json = JSON->new->pretty;
  my $since = $self->since;
  $since =~ s/Z?$/Z/;

  my $guids = $librarian->se

ntry->title($msg);
      $entry->author($fn);
      $entry->summary($msg);
      $entry->content($json->encode( $data ));
      $entry->issued(DateTime::Format::ISO8601->parse_datetime( $ts ));