Mercurial > pub > site.implab
view tests/test_ttfs.pl @ 16:e69c970c3ddd default tip
sync
author | sergey |
---|---|
date | Tue, 20 May 2014 01:28:48 +0400 |
parents | a7a3e4f626ff |
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]);