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
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: |
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 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 |