nekoya

!/bin/sh
ssh-agent | grep -v echo > "${HOME}/.ssh/agent-env"
. "${HOME}/.ssh/agent-env"
ssh-add
echo "please type:"
echo ". ~/.ssh/agent-env"

nekoya

#!/usr/bin/perl
use strict;
use warnings;

use local::lib;
use File::Temp;
use FindBin;
use Getopt::Long;

# Help messages

nekoya

#!/bin/sh

ONFILE="/etc/yum.repos.d/dag.repo"
OFFFILE="/etc/yum.repos.d/dag"

usage() {
    echo "Usage: dagrepos {on|off}"
    echo -n "  DAG repository:"
    if [ -e $ONFILE ]; then
        echo "ON"

nekoya

/**
 * PHP Autoloader Example.
 */

/**
 * __autoload in global space
 */
function __autoload($class) {
    $dirname = dirname(__FILE__);
    $class = preg_replace('/_/', DIRECTORY_SEPARATOR, $class);

nekoya

use Test::Base;

{
    package T1;
    use Ark;
    use_model 'T1::Models';

    use Digest::SHA1 'sha1_hex';

    use_plugins qw/

nekoya

/Users/ryo/projects/ark% prove -lv t/plugin_authentication_cred_password_with_models.t
t/plugin_authentication_cred_password_with_models.t ..
ok 1 - not login ok
Use of uninitialized value in hash element at /Users/ryo/perl5/lib/perl5/Object/Container.pm line 77.
Use of uninitialized value in hash element at /Users/ryo/perl5/lib/perl5/Object/Container.pm line 75.
Use of uninitialized value in concatenation (.) or string at /Users/ryo/perl5/lib/perl5/Object/Container.pm line 77.
Use of uninitialized value in pattern match (m//) at /Users/ryo/projects/ark/lib/Ark/Models.pm line 151.
[error] Caught exception in engine """ is not registered in T1::Models at /Users/ryo/projects/ark/lib/Ark/Core.pm line 445"
not ok 2 - login ok

nekoya

@@ -66,4 +66,4 @@
             if ($self->needs_localize) {
-                if (my $label = delete $params{label}) {
-                    $params{label} = $self->localize($label);
+                if (exists $params{label}) {
+                    $params{label} = $self->localize($params{label});
                 }

nekoya

#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Perl6::Say;

package MyApp::DB;
use DBIx::Skinny setup => +{
    dsn => 'dbi:SQLite:test.db',
    username => '',

nekoya

--- a/lib/DBIx/Skinny/Schema.pm
+++ b/lib/DBIx/Skinny/Schema.pm
@@ -15,7 +15,7 @@ sub import {
 
     my @functions = qw/
         install_table
-          schema pk columns schema_info
+          schema pk columns schema_info table_info
         install_inflate_rule
           inflate deflate call_inflate call_deflate

nekoya

use strict;
use warnings;

package Person;
use Mouse;

sub chk {}

around chk => sub {
    my $module = 'NoModule';