This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[davidp@supernova:~/dev/<projectdir>]$ git-push | |
Pushing to <repo-url-snipped> | |
To <repo-url-snipped> | |
! [rejected] master -> master (non-fast forward) | |
error: failed to push some refs to '<repo-url-snipped>' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dancer is a Perl framework for building web applications with minimal effort. It | |
started as a port of Ruby's Sinatra project, but has grown on its own path. A | |
Dancer app can run as a standalone Web server or from any webserver using PSGI, | |
and lets the user write an application with very few lines of code. It's | |
powerful and flexible enough to knock up a simple website or web service very | |
quickly, and can scale to much larger projects. | |
Building a Web application with Dancer is as easy as loading the library and | |
defining route handlers. Dancer provides an elegant syntax for defining route | |
handlers, can render views with a variety of template engines, supports static |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
port: 4002 | |
dsn: "dbi:SQLite:dbname=test.db" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use Dancer; | |
get '/' => sub { | |
"query string: " . request->env->{QUERY_STRING}; | |
}; | |
dance; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my @matches; | |
my @filenames = (...); | |
for my $filename (@filenames) { | |
open(my $fh, '<', $filename) or die "Failed to open $filename - $!"; | |
while (my $line = <$fh>) { | |
if ($line =~ /foo/) { | |
push @matches, $line; | |
} | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my @sources; | |
my $in_section; | |
while (my $line = <$fh>) { | |
$in_section++ if $line =~ /^# You can add/; | |
next unless $in_section; | |
$line =~ /^source (.+)/ and push @sources, $1; | |
} | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
23:16 < merlyn> ugh - body must be bytes and should not contain wide characters (UTF-8 | |
strings). at | |
/usr/local/lib/perl5/site_perl/5.10.1/Plack/Middleware/StackTrace.pm | |
line 27 | |
23:16 < merlyn> why does plack care if I'm sending utf8? | |
23:17 < merlyn> looks related to this issue - | |
http://github.com/miyagawa/Plack/issues/issue/115 | |
23:20 < merlyn> might be a bug in Dancer then | |
23:20 < merlyn> it's passing the utf8 string to plack, instead of byte-ing it | |
23:21 < merlyn> this statement is triggering - if (ref $res->[2] eq 'ARRAY' && grep |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[davidp@supernova:~]$ cat test.yml | |
plack_middlewares: | |
Static: | |
- path | |
- qr{^/(images|js|css)/} | |
- root | |
- './public/' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use common::sense; | |
use Data::Dump; | |
use CGI; | |
my $cgi = CGI->new; | |
print $cgi->header; | |
my @selected = $cgi->param('myfield'); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $form = HTML::Form->parse($mech->response); | |
my $dropdown = $form->find_input('DropdownName'); | |
my @labels = $dropdown->value_names; | |
my @values = $dropdown->possible_values; | |
# The above works perfectly for fetching a list of values and labels, | |
# but for each entry in the drop-down, I need to know which <optgroup> | |
# it's in. HTML::Form doesn't appear to provide that info... |
OlderNewer