Mojolicious Static Includes

Mojolicious::Plugin::IncludeStatic.pm

sub register
{
  my ($self, $app) = @_;

$self->helper(include_static => sub { 
      my ($c, $path) = @_;
      return unless $path;

      if($path !~ m|^/|) {
	  my $root = first { -f "$_/$path" } @{$c->app->renderer->paths};
	  $path = "$root/$path" if $root;
      }
      
      open my $in, '<', $path or die "can't include file '$path': $!";
      my $content = do { local $/; <$in> };

      return $content;			     
  });
}

MojoliciousPluginIncludeStatic.pm

sub register
{
  my ($self, $app) = @_;

  $self->helper(include_static => sub { 
      my ($c, $path) = @_;
      return unless $path;

      if($path !~ m|^/|) {
	  my $root = first { -f "$_/$path" } @{$c->app->renderer->paths};
	  $path = "$root/$path" if $root;
      }
      
      open my $in, '<', $path or die "can't include file '$path': $!";
      my $content = do { local $/; <$in> };

      return $content;			     
  });
}