view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/data-no-default_view/config.ini
t/data-no-views/config.ini
t/data/config.ini
t/data/rendered/derived_create.html
t/data/rendered/derived_list.ajax
t/data/rendered/derived_list.html
t/data/rendered/derived_list.js
t/data/rendered/derived_list.xml
t/data/rendered/derived_list_overridden.ajax
t/data/rendered/derived_update.html
t/data/rendered/footer-1.frag
t/data/rendered/header-1.frag
t/data/rendered/view-error-read-tt.html
t/data/rendered/view-error-read.html
t/data/rendered/view-error-read.xml
t/data/templates/actions.tt2
t/data/templates/cache.tt2
t/data/templates/derived_create.tt2
t/data/templates/derived_list.tt2
t/data/templates/derived_list_ajax.tt2
t/data/templates/derived_list_json.tt2
t/data/templates/derived_list_overridden.tt2

t/decorator/30-decorator.t  view on Meta::CPAN

					script => q[foo.init({mode:"textareas",theme:"simple"});],
				       });

  is_deeply($dec->script(), [q[foo.init({mode:"textareas",theme:"simple"});]], 'returns given array for jsfile()');
}

{
  $ClearPress::decorator::DEFAULTS->{meta_version} = 123;
  $ClearPress::decorator::DEFAULTS->{lang} = 'en-gb';
  my $dec = ClearPress::decorator->new();
  is($dec->header(), from_file(q(header-1.frag)), 'default combined header');
}

{
  my $dec = ClearPress::decorator->new();
  isa_ok($dec->cgi(), 'CGI', 'cgi() returns a new CGI object');
}

{
  my $dec = ClearPress::decorator->new();
  is($dec->cgi(), $dec->cgi(), 'cgi() returns a cached CGI object');

t/decorator/30-decorator.t  view on Meta::CPAN

  is($dec->save_session(), undef, 'save_session returns undef');
}

{
  my $dec = ClearPress::decorator->new();
  is($dec->username(), q(), 'username returns ""');
}

{
  my $dec = ClearPress::decorator->new();
  is($dec->footer(), from_file(q(footer-1.frag)), 'footer returns default html');
}

{
  my $dec = ClearPress::decorator->new();
  is($dec->charset, 'iso8859-1', 'default charset');
}

{
  my $dec = ClearPress::decorator->new({charset=>'UTF-8'});
  is($dec->charset, 'UTF-8', 'constructor charset');