bigpresh

13:15 < bigpresh> For reference for when Gryllida returns, the problem is calling makeashorterlink() without 
                  a package name - it gets caught by an AUTOLOAD:
13:15 < bigpresh> Use of inherited AUTOLOAD for non-method My::Bot::makeashorterlink() is deprecated at 
                  gryllida.pl line 11.
13:15 < bigpresh> The fix is, of course, to call it as WWW::Shorten::TinyURL::makeashorterlink($long_url)

bigpresh

[30129] debug @0.008826> [hit #1]Handler code: CODE(0x97b22a8) in beforecontent.pl l. 22
[30129] debug @0.009605> [hit #1]Handler attributes: greeter in beforecontent.pl l. 23
[30129] debug @0.010169> [hit #1]Handler pattern: /hello/:name in beforecontent.pl l. 24

bigpresh

[davidp@columbia:~]$ cat irfan.pl 
#!/usr/bin/perl

use strict;
use File::Find;

my %files;

File::Find::find(sub { $files{$_}++ }, shift);

bigpresh

[davidp@supernova:~/tmp/dancertests]$ cat dumpparams.pl
#!/usr/bin/perl

use Dancer;
use Data::Dump;

get '/:foo' => sub {
    my $params = params;
    "<pre>params:" . Data::Dump::dump($params) . "</pre>";
};

bigpresh

#!/usr/bin/env perl
use Dancer;
use utf8;
setting charset => 'utf8';
setting logger => 'console';

get '/' => sub {
    debug "Привет, мир!";
    "Привет, мир!";
    };

bigpresh

#!/usr/bin/perl

my $filename = @ARGV[0];

open(FILE, $filename);

my @lines = <FILE>:

for (@lines) {
    print if /foo/;

bigpresh

#!/usr/bin/perl

use Dancer;

before => sub {
    status 401;
    return halt "Sorry, I can't do that Dave.";
};

get '/' => sub {

bigpresh

Testing out gistp.

https://github.com/miyagawa/gistp

bigpresh

#!/usr/bin/perl

use strict;

my $first_file = ...;

my @files;
push @files, $first_file;
 
while (my $file = shift @files) {

bigpresh

diff --git a/lib/Dancer/Plugin/Feed.pm b/lib/Dancer/Plugin/Feed.pm
index 079fb3d..64d9bfa 100644
--- a/lib/Dancer/Plugin/Feed.pm
+++ b/lib/Dancer/Plugin/Feed.pm
@@ -16,6 +16,7 @@ my @feed_properties =
 
 my @entries_properties = qw/
   title base link content summary category tags author id issued modified
+  enclosure
   /;