Bot-Cobalt-Plugin-YouTube

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "develop" : {
         "requires" : {
            "Test::Pod" : "1.41"
         }
      },
      "runtime" : {
         "requires" : {
            "Bot::Cobalt" : "0",
            "Carp" : "0",
            "HTML::TokeParser" : "3.69",
            "HTTP::Request" : "0",
            "perl" : "v5.12.1",
            "strictures" : "2"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.88"
         }
      }
   },

META.yml  view on Meta::CPAN

generated_by: 'Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.150001'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Bot-Cobalt-Plugin-YouTube
requires:
  Bot::Cobalt: 0
  Carp: 0
  HTML::TokeParser: 3.69
  HTTP::Request: 0
  perl: v5.12.1
  strictures: 2
resources:
  repository: git://github.com/avenj/bot-cobalt-plugin-youtube.git
version: 0.003001

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "Bot-Cobalt-Plugin-YouTube",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.012001",
  "NAME" => "Bot::Cobalt::Plugin::YouTube",
  "PREREQ_PM" => {
    "Bot::Cobalt" => 0,
    "Carp" => 0,
    "HTML::TokeParser" => "3.69",
    "HTTP::Request" => 0,
    "strictures" => 2
  },
  "TEST_REQUIRES" => {
    "Test::More" => "0.88"
  },
  "VERSION" => "0.003001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Bot::Cobalt" => 0,
  "Carp" => 0,
  "ExtUtils::MakeMaker" => 0,
  "HTML::TokeParser" => "3.69",
  "HTTP::Request" => 0,
  "Test::More" => "0.88",
  "strictures" => 2
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

dist.ini  view on Meta::CPAN

[ConfirmRelease]

[Prereqs]
perl          = 5.12.1
Carp          = 0

strictures    = 2
Bot::Cobalt   = 0

HTML::TokeParser  = 3.69
HTTP::Request     = 0

[Prereqs / TestRequires]
Test::More = 0.88

[Run::AfterBuild]
run = cp %d%pREADME.mkdn .

lib/Bot/Cobalt/Plugin/YouTube.pm  view on Meta::CPAN

package Bot::Cobalt::Plugin::YouTube;
$Bot::Cobalt::Plugin::YouTube::VERSION = '0.003001';
use Bot::Cobalt;
use Bot::Cobalt::Common;

use strictures 2;

use HTML::TokeParser;
use HTTP::Request;

sub REGEX () { 0 }

sub new {
  bless [
    qr{(youtu\.be|youtube\.com)/(\S+)},  ## ->[REGEX]
  ], shift
}

sub Cobalt_register {

lib/Bot/Cobalt/Plugin/YouTube.pm  view on Meta::CPAN

  my $chcfg = core->get_channels_cfg( $msg->context );
  my $this_chcfg = $chcfg->{ $msg->channel } // {};
  return if $this_chcfg->{no_yt_retrieve};

  my $req_url = $self->_create_yt_link($base, $id);

  logger->debug("dispatching request to $req_url");

  broadcast( 'www_request',
    HTTP::Request->new( GET => $req_url ),
    'youtube_plug_resp_recv',
    [ $req_url, $msg ],
  );

  1
}

sub Bot_public_msg {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };