Pulp

 view release on metacpan or  search on metacpan

lib/Pulp.pm  view on Meta::CPAN

use true;
use Text::ASCIITable;
use FindBin;
use Module::Find 'useall';
use base 'Kelp';

our $VERSION = '0.001';

sub import {
    my ($class, %opts) = @_;
    strict->import();
    warnings->import();
    true->import();
    my $caller = caller;
    my $routes = [];
    my $configs = {};
    my $auto    = 0;
    {
        no strict 'refs';
        push @{"${caller}::ISA"}, 'Kelp';
         # check args

lib/Pulp/Controller.pm  view on Meta::CPAN

package Pulp::Controller;

use warnings;
use strict;
use true;

sub import {
    strict->import();
    warnings->import();
    true->import();
    my $caller = caller;
}

1;
__END__

lib/Pulp/Model.pm  view on Meta::CPAN

package Pulp::Model;

use warnings;
use strict;
use true;

sub import {
    my ($class, %args) = @_;
    warnings->import();
    strict->import();
    true->import();

    my $caller = caller;
    my $with_api = 0;
    if ($args{'-api'} and $args{'-api'} == 1) {
        $with_api = 1;
    }

    {
        no strict 'refs';

lib/Pulp/Route.pm  view on Meta::CPAN

package Pulp::Route;

use warnings;
use strict;
use true;

sub import {
    my $routes = {};
    my $caller = caller;
    strict->import();
    warnings->import();
    true->import();
    {
        no strict 'refs';
        push @{"${caller}::ISA"}, 'Kelp';
        *{"${caller}::new"} = sub { return shift->SUPER::new(@_); };

        *{"${caller}::everything"} = sub { return "(.+)"; };
        *{"${caller}::get"} = sub {
            my ($name, $coderef) = @_;