view tests/test_ttfs.pl @ 1:f1ce08199a08

stubs
author cin
date Tue, 29 Apr 2014 02:36:24 +0400
parents
children a7a3e4f626ff
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]);