| var noembed = { | |
| patterns : [], | |
| callbacks : {}, | |
| callback_counter: 0, | |
| setup : function(selector) { | |
| if (!selector) selector = "a[href]"; | |
| var elems = document.querySelectorAll(selector); | |
| if (elems.length) { | |
| noembed.get_patterns(function() { |
| [leedo@trillian ~]$ plackup -MCarp::Always test.pl | |
| HTTP::Server::PSGI: Accepting connections at http://0:5000/ | |
| EV: error in callback (ignoring): Not a CODE reference at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/EV.pm line 1192. | |
| EV::__ANON__() called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/AnyEvent/Impl/EV.pm line 88 | |
| eval {...} called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/AnyEvent/Impl/EV.pm line 88 | |
| AnyEvent::CondVar::Base::_wait('AnyEvent::CondVar=HASH(0x7ffa5bb895c0)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/AnyEvent.pm line 1981 | |
| AnyEvent::CondVar::Base::recv('AnyEvent::CondVar=HASH(0x7ffa5bb895c0)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/App/Proxy/Backend/AnyEvent/HTTP.pm line 60 | |
| Plack::App::Proxy::Backend::AnyEvent::HTTP::__ANON__('HASH(0x7ffa5baf3738)') called at /Users/leedo/per |
| vagrant@lucid32:~/style$ bash < <(curl -s https://rvm.beginrescueend.com/install/rvm) | |
| Initialized empty Git repository in /home/vagrant/.rvm/src/rvm/.git/ | |
| remote: Counting objects: 4939, done. | |
| remote: Compressing objects: 100% (2305/2305), done. | |
| Receiving objects: 100% (4939/4939), 1.61 MiB | 648 KiB/s, done. | |
| remote: Total 4939 (delta 3201), reused 3560 (delta 1951) | |
| Resolving deltas: 100% (3201/3201), done. | |
| RVM: Shell scripts enabling management of multiple ruby environments. | |
| RTFM: https://rvm.beginrescueend.com/ |
#Installing Alice's dependencies from the CPAN
Alice has a number of dependencies, all of which can be installed from the
CPAN1. The simplest way to get these installed is with the cpanm tool.
Install cpanm by running
curl -L http://xrl.us/cpanm | perl - --sudo App::cpanminus
Check out alice's git repository
| #!/usr/bin/perl | |
| use Web::Scraper; | |
| use Data::Dump qw/pp/; | |
| use File::Slurp; | |
| my $html = read_file($ARGV[0]); | |
| my $scraper = scraper { | |
| process 'header#content', html => 'RAW'; |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use List::Util qw{max}; | |
| use List::MoreUtils qw{none}; | |
| use POSIX qw{ceil}; | |
| @ARGV == 2 or die "need video file"; |
| package Fuhbot::Plugin; | |
| use v5.14; | |
| use warnings; | |
| use mop; | |
| class Fuhbot::PluginClass extends mop::class { | |
| has $commands = []; | |
| has $routes = []; | |
| has $events = []; |
| sub n (*@flat) { | |
| say "flattened " ~ @flat.elems; | |
| } | |
| multi sub m (*@flat) { | |
| say "flattened " ~ @flat.elems; | |
| } | |
| multi sub m ((Range $range)) { | |
| say "got Range"; |
| > &infix:<+> === &infix:<+> | |
| True | |
| > &infix:<+> !== &infix:<+> | |
| Cannot call 'Numeric'; none of these signatures match: | |
| :(Mu:U \v: Mu *%_) |
| No registered operation handler for 'locallifetime' | |
| in compile_op (src/stage2/gen/QAST.nqp:230) | |
| in as_jast (src/stage2/gen/QAST.nqp:3517) | |
| in as_jast (src/stage2/gen/QAST.nqp:2794) | |
| in (src/stage2/gen/QAST.nqp:3486) | |
| in compile_all_the_stmts (src/stage2/gen/QAST.nqp:3474) | |
| in as_jast (src/stage2/gen/QAST.nqp:3453) | |
| in as_jast (src/stage2/gen/QAST.nqp:2794) | |
| in (src/stage2/gen/QAST.nqp:3486) | |
| in compile_all_the_stmts (src/stage2/gen/QAST.nqp:3474) |