App-PM-Announce

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  DBIx::Simple: 0
  Data::Dump: 1.14
  Data::UUID: 0
  Date::Manip: 0
  DateTime: 0
  DateTimeX::Easy: 0
  Document::TriPart: 0
  File::HomeDir: 0
  Getopt::Chain: 0
  HTML::TreeBuilder: 0
  HTTP::Request::Common: 0
  JSON: 2
  Log::Dispatch: 0
  Moose: 0
  Path::Class: 0
  SQL::Script: 0
  Scalar::Util: 0
  String::Util: 0
  Text::Table: 0
  WWW::Mechanize: 0
  WWW::UsePerl::Journal::Post: 0

Makefile.PL  view on Meta::CPAN

DateTime
DateTimeX::Easy
DBD::SQLite
DBI
DBIx::Simple
DateTime
Document::TriPart
File::HomeDir
Getopt::Chain
HTML::TreeBuilder
HTTP::Request::Common
JSON 2
Log::Dispatch
Moose
Path::Class
SQL::Script
Scalar::Util
String::Util
Text::Table
WWW::Mechanize
WWW::UsePerl::Journal::Post 

lib/App/PM/Announce/Feed.pm  view on Meta::CPAN

package App::PM::Announce::Feed;

use warnings;
use strict;

use Moose;

use WWW::Mechanize;
use HTTP::Request::Common qw/GET POST/;
use HTML::TreeBuilder;

my @feeds = qw/meetup linkedin greymatter useperl/;

has app => qw/is ro isa App::PM::Announce required 1/, handles => [qw/ logger /];
has username => qw/is ro isa Str required 1/;
has password => qw/is ro isa Str required 1/;
has uri => qw/is ro required 1/;

has agent => qw/is ro lazy_build 1/, handles => [qw/ submit_form /];

t/prototype/01-greymatter.t  view on Meta::CPAN

my $key = int rand $$;
$feed->announce(
    title => "Event title ($key)",
    description => "Event description ($key)",
);

ok(1);

__END__
use WWW::Mechanize;
use HTTP::Request::Common qw/POST/;

my $agent = WWW::Mechanize->new;

#$agent->request(
#    POST "http://sf.pm.org/cgi-bin/greymatter/gm.cgi", {

$agent->request(
    POST "http://72.14.179.195/cgi-bin/greymatter/gm.cgi", {
        authorname => 'alice8378',
        authorpassword => 'test8378',

t/prototype/02-linkedin.t  view on Meta::CPAN

$feed->announce(
    title => "Event title ($key)",
    description => "Event description ($key)",
);

ok(1);

__END__

use WWW::Mechanize;
use HTTP::Request::Common qw/POST/;

my $agent = WWW::Mechanize->new;

$agent->get("https://www.linkedin.com/secure/login");

$agent->submit_form(
    fields => {
        session_key => 'robertkrimen+alice8378@gmail.com',
        session_password => 'test8378',
    },

t/prototype/03-meetup.t  view on Meta::CPAN

    venue => 920502,
    datetime => DateTime->now->add(days => 10),
    image => Path::Class::File->new( 't/assets/bee.jpg' ),
);

ok(1);

__END__

use WWW::Mechanize;
use HTTP::Request::Common qw/POST/;
use HTML::TreeBuilder;
use URI;

my $agent = WWW::Mechanize->new;

$agent->get("http://www.meetup.com/login/");

$agent->submit_form(
    fields => {
        email => 'robert...krimen@gmail.com',