Toby Inkster tobyink
🦈
tobyink
/ dump-this.pl
Created
January 17, 2013 14:03
This file contains hidden or 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
| use strict; | |
| use warnings; | |
| use JSON; | |
| my $a = [1,2,3]; | |
| my $b = {a => $a}; | |
| push @$a, $b; | |
| print to_json $a; |
tobyink
/ pod2html-tobyink.pl
Created
January 18, 2013 22:46
This file contains hidden or 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/env perl | |
| use 5.010; | |
| use strict; | |
| use warnings; | |
| use HTML::HTML5::Parser; | |
| use HTML::HTML5::Writer; | |
| use Pod::Simple; | |
| use Syntax::Highlight::Engine::Kate; |
tobyink
/ be-careful-when-using-any-variables-whatsoever.pl
Last active
December 11, 2015 10:19
This file contains hidden or 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
| use v5.14; | |
| use strict; | |
| use warnings; | |
| package My::Role | |
| { | |
| use Moose::Role; | |
| my $some_val; | |
| sub has_my { | |
| my ( $self, $value ) = @_; |
tobyink
/ soundswarm-jsonrpc-stuff.pl
Created
January 22, 2013 22:35
This file contains hidden or 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
| { | |
| package SoundSwarm::Syntax; | |
| no thanks; | |
| use Syntax::Collector -collect => q/ | |
| use Carp 0 qw( confess ); | |
| use Scalar::Util 0 qw( blessed ); | |
| use MooX::Types::MooseLike::Base 0 qw( :all ); | |
| /; | |
| } |
This file contains hidden or 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
| diff --git a/Changes b/Changes | |
| index 09d39ba..f9a8b4c 100644 | |
| --- a/Changes | |
| +++ b/Changes | |
| @@ -1,3 +1,5 @@ | |
| + - has will refuse to overwrite locally defined subs with generated | |
| + accessors. | |
| - expand is => 'lazy' doc to make it clear that you can make rw lazy | |
| attributes if you really want to | |
| - handles => "RoleName" tries to load the module |
tobyink
/ pm-1019944.pl
Created
February 21, 2013 13:20
This file contains hidden or 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
| use v5.14; | |
| use Test::More; | |
| package MooseX::IgnoreFalse::Trait::Attribute | |
| { | |
| use Moose::Role; | |
| after _process_options => sub | |
| { | |
| my ($class, $name, $options) = @_; | |
This file contains hidden or 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
| use v5.14; | |
| use warnings; | |
| use HTML::Tags; | |
| package MyWeb::Homepage { | |
| sub get_html { | |
| <html>, "Please pay at the checkout", </html>; | |
| } | |
| } |
tobyink
/ gist:5065356
Created
March 1, 2013 15:24
This file contains hidden or 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
| use strict; | |
| use warnings; | |
| sub abc { | |
| <html>, "Hello", </html>; | |
| } | |
| sub xyz { | |
| use HTML::Tags; | |
| abc(); |
This file contains hidden or 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
| <tr class="class"> | |
| <td style="width:8%;"><a href="page.com" class="hyperlink">ABC</a></td> | |
| <td style="width:10%;">1</td> | |
| <td style="width:8%;">2</td> | |
| <td style="width:8%;">3</td> | |
| <td style="width:8%;">4</td> | |
| <td style="width:8%;">5</td> | |
| <td style="width:8%;">6</td> | |
| <td style="width:12%;">7</td> | |
| </tr> |
tobyink
/ my-cpan-rev-deps.pl
Created
March 4, 2013 22:24
MetaCPAN query to find all my distributions which depend on X, where X is some module I've decided to stop using.
This file contains hidden or 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/env perl | |
| use v5.10; | |
| use strict; | |
| use warnings; | |
| use HTTP::Tiny; | |
| use JSON; | |
| my @fields = qw< distribution version date >; |