Skip to content

Instantly share code, notes, and snippets.

1 - Test 1 or 2 more apps
2 - write tests for getting default_model / default_view from config?
3 - move block from sub controller to Catalyst::Utils
4 - kill components class data
4.1 - kill initialization in sub setup
4.2 - kill duplication: http://paste.scsys.co.uk/123648
4.3 - create a sub components that returns all components
4.4 - merge with around components => sub {}
4.5 - locked hash (Hash::Util)
5 - block inside sub setup:
use warnings;
use strict;
use Data::Dump;
my $str =
q|host dezoito{hardware ethernet 00:0e:a6:7a:7e:79;fixed-address 192.168.120.118;}|;
my @matches = $str =~
/^host\s(.*) # nome do host
\{ # abre chaves