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]);