view release on metacpan or  search on metacpan

lib/Catalyst/View/JavaScript/Minifier/XS.pm  view on Meta::CPAN

   my $file_list;
   if ( $self->js_dir || $self->INCLUDE_PATH ) {
      $file_list = $self->_with_js_dir( \@files, $abs_root );
   } else {
      $file_list = $self->_no_js_dir( \@files );
   }

   my $output = $self->_combine_files($c, $file_list);

   $c->res->headers->last_modified( max map stat($_)->mtime, @{$file_list} );
   $c->res->body( $self->_minify($c, $output) );
}

sub _subinclude {
   my ( $self, $c, $original_stash, @files ) = @_;

   return unless $self->subinclude && $c->request->headers->referer;

   unless ( $c->request->headers->referer ) {
      $c->log->debug('javascripts called from no referer sending blank') if $c->debug;

t/01-basic.t  view on Meta::CPAN

ok $served, q{served data isn't blank};
my $path = File::Spec->catfile($FindBin::Bin, qw{lib TestApp root js foo.js});
open my $file, '<', $path;

my $str = q{};
while (<$file>) {
   $str .= $_;
}

is minify($str), $served, 'server actually minifed the javascript';
is $res->headers->last_modified, stat($path)->mtime, 'right modtime header';



done_testing;