CPAN::Groonga

ft; goto &Cwd::cwd }
};

# TODO: sort out conf file methods (or Config::Any etc):
#   read_json
#   write_json

#### same RSS/time as redefine-self plus 3.5% more ops ##
# sub cwd {
#     require Cwd;

e;
    };
};

Sub::Defer::defer_sub __PACKAGE__ . '::json_write' => sub {
    require JSON::Syck;
    return sub {
        shift;
        goto &JSON::Syck::DumpFile;            # already does ♥ inst

e)
    };
};

Sub::Defer::defer_sub __PACKAGE__ . '::json_read' => sub {
    require JSON::Syck;
    return sub {
        shift;
        goto &JSON::Syck::LoadFile;
    };
};

sub is_safe_part {
    m

t
    };
};

Sub::Defer::defer_sub __PACKAGE__ . '::json_to_ref' => sub {
    require JSON::Syck;
    return sub {
        shift;
        goto &JSON::Syck::Load;                   # already does ♥ i

   };
};

Sub::Defer::defer_sub __PACKAGE__ . '::ref_to_json' => sub {
    require JSON::Syck;
    return sub {
        shift;
        goto &JSON::Syck::Dump;                   # already does ♥ inst

sub ref_to_jsonp {
    my ( $app, $ref, $function ) = @_;
    $function ||= 'jsonp_callback';
    return if $function =~ m/[^0-9a-zA-Z_]/;
    return $function . '(' . $app->ref_to_json($ref) . ');'