Skip to content

Instantly share code, notes, and snippets.

View notbenh's full-sized avatar

ben hengst notbenh

77 followers · 84 following
View GitHub Profile
@notbenh
notbenh / notbenh_vs_overload.t
Created January 13, 2011 19:20
proof that I don't understand overload at all
#!/usr/bin/perl
use strict;
use warnings;
use Test::Most qw{no_plan};
use Carp::Always;
BEGIN{ print qq{\n} for 1..10};
#-----------------------------------------------------------------
@notbenh
notbenh / tags.yaml.t
Created August 9, 2011 21:29
example yaml that I'm trying to extract tags from
#!/usr/bin/perl
use strict;
use warnings;
use Test::More qw{no_plan};
use YAML;
my $yaml=q{- Dependency injection : __ ... in perl
- IoC :
- !!slide/detail Lets get this out of the way first
- Control = rm -rf dir
@notbenh
notbenh / pdx.pm.podcast.report.pl
Created September 14, 2011 09:19
Quick little script to create human-ish tally of who has recorded talk's at pdx.pm
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
#-------------------------------------------------------------------------------
# calculate how many times each speaker spoke
#-------------------------------------------------------------------------------
my %speakers;
do{ my ($_) = m/\d{4}-\d\d-\d\d\.(?:([^.]+)\.)?.*/; # named capture?
@notbenh
notbenh / annon_hash_eq_list.t
Created September 29, 2011 07:13
annon { $label => ...} with out assignment is seen as a list?
#!/usr/bin/env perl
use strict;
use warnings;
use Test::Most qw{no_plan};
my $data = [{ label => {key => 'value'}}];
eq_or_diff
[ map{ my $hash = $_;
my $x =
@notbenh
notbenh / prot_export.t
Created October 5, 2011 04:15
are prototypes exportable?
#!/usr/bin/env perl
use strict;
use warnings;
use Test::Most qw{no_plan};
BEGIN {
package My::Test;
use Exporter qw{import};
our @EXPORT = qw{thing};
@notbenh
notbenh / get_post_subdispatch
Created November 11, 2011 03:06
How do I do a get/post subdispatch with dancer
package Thing::App;
use Dancer ':syntax';
sub get_my_data {...};
any ['get', 'post'] => '/something' => sub {
my $data = get_my_data();
if (request->method eq 'GET') {
...
} else {
@notbenh
notbenh / dancer_multi.pl
Created November 23, 2011 00:35
dancer multi method dispatch-ish thing
sub multi ($$) {
my $route_templates = shift;
my $route_definition = shift;
foreach my $type (keys %$route_templates) {
foreach my $route ( keys %$route_definition) {
my $action = sub{ $route_templates->{$type}->( $route_definition->{ $route } ) };
Dancer::App->current->registry->universal_add( $type
, $route
, $action
@notbenh
notbenh / mega-pack-form.php
Created December 1, 2011 07:51
how to megga-pack form things
<!DOCTYPE html>
<html>
<head>
</head>
<body>
<pre>
<? print_r($_POST); ?>
</pre>
<form action='<? $_SERVER['PHP_SELF'] ?>' method='POST'>
@notbenh
notbenh / why_not_infinate.php
Created December 15, 2011 16:37
I'm wondering why an assignment of the iterator does not cause an infinite loop here?
<?
/* I know the issue here is the use of the assignment rather then equality, though
I would think that this would lead to an infinite loop as $c should be reset to
4 for every instance of the $c loop after $r = 2 ... right? But that's not what
seems to happen? Any one have any insight?
NOTE: why does the else clause never get tripped, if $c==1?
*/
echo '<pre>';
@notbenh
notbenh / report_id.txt
Created December 20, 2011 07:42
making a report id on the fly
mysql> select * from status_type;
+----+-------------+
| id | status_name |
+----+-------------+
| 1 | created |
| 2 | started |
| 3 | canceled |
| 4 | finished |
+----+-------------+
4 rows in set (0.00 sec)