Mercurial > pub > site.implab
view tests/test_ttfs.pl @ 2:a7a3e4f626ff
sync
author | sergey |
---|---|
date | Wed, 07 May 2014 12:35:55 +0400 |
parents | f1ce08199a08 |
children |
line wrap: on
line source
#!/usr/bin/perl use strict; use lib '.'; use config; use IMPL::Config(); use IMPL::require { TTSelector => 'IMPL::Web::View::TTFsSelector', Dumper => 'Data::Dumper' }; my $selector = TTSelector->new( isContainer => 1, ext => 'tt', path => IMPL::Config->AppDir('view','site') ); my $match = $selector->MatchPath( [ {}, { name => 'library'}, { name => 'index', class => 'Some::Collection' }, { name => 'compounds' }, { name => 'asd--df-sd-f--ds-we', class => 'Some::Compound' } ] ); print Dumper->Dump([$match]);