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