App-mookview

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "File::ShareDir" : "0",
            "Number::Format" : "0",
            "Path::Tiny" : "0",
            "Plack" : "0",
            "Text::Markdown::Discount" : "0",
            "Text::Xslate" : "0",
            "Try::Tiny" : "0",
            "perl" : "5.008005"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.98"
         }
      }
   },
   "provides" : {

META.yml  view on Meta::CPAN

  App::mookview:
    file: lib/App/mookview.pm
    version: 0.03
requires:
  File::ShareDir: 0
  Number::Format: 0
  Path::Tiny: 0
  Plack: 0
  Text::Markdown::Discount: 0
  Text::Xslate: 0
  Try::Tiny: 0
  perl: 5.008005
resources:
  bugtracker: https://github.com/yusukebe/App-mookview/issues
  homepage: https://github.com/yusukebe/App-mookview
  repository: git://github.com/yusukebe/App-mookview.git
version: 0.03

cpanfile  view on Meta::CPAN

requires 'perl', '5.008001';

requires 'Plack';
requires 'Path::Tiny';
requires 'Text::Markdown::Discount';
requires 'Text::Xslate';
requires 'File::ShareDir';
requires 'Try::Tiny';
requires 'Number::Format';

on 'test' => sub {
    requires 'Test::More', '0.98';
};

lib/App/mookview.pm  view on Meta::CPAN

use 5.008005;
use strict;
use warnings;
use Plack::Request;
use Path::Tiny qw/path/;
use Text::Markdown::Discount qw/markdown/;
use Text::Xslate qw/mark_raw/;
use Number::Format qw/format_number/;
use File::ShareDir qw/dist_dir/;
use Plack::App::Directory;
use Try::Tiny;
use Encode;

our $VERSION = "0.03";

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    my $name = shift or return;
    my $file_path = path($name);
    return unless $file_path->is_file();