4 use Test::More tests => 4;
6 use_ok( 'URI::Template' );
10 my $text = 'http://foo.com/{bar}/{baz}?{foo}=%7B&{abr}=1';
11 my $template = URI::Template->new( $text );
12 isa_ok( $template, 'URI::Template' );
13 my @l_vars = $template->variables;
14 is_deeply( \@l_vars, [ 'bar', 'baz', 'foo', 'abr' ], 'variables() in list context' );
15 my $s_vars = $template->variables;
16 is( $s_vars, 4, 'variables() in scalar context' );