ktat

############################################################
#
# FreeStyleWiki上でMarkdown記法での記入を可能にします。
#
############################################################
package plugin::markdown::Install;
use strict;

sub install {
    my $wiki = shift;

ktat

    use base qw/Qudo::Worker/;
    sub import{
        my $class = shift;
        if($class->split_process_from_initial_character()){
            no strict 'refs';
            my $package = $class;
            *{"$package\::InitialLowerCase::ISA"} = [$package];
            *{"$package\::InitialUpperCase::ISA"} = [$package];
            *{"$package\::InitialNumber::ISA"} = [$package];
            *{"$package\::get_splited_worker_classname"} = sub {

ktat

#!/usr/bin/env perl

use feature 'say';

package Hoge{
    sub new {
        my $class = shift;
        my $args = ref $_[0] ? $_[0] : +{@_};
        bless $args, $class;
    }

ktat

#!/usr/bin/env perl
package Hoge{
    sub new {
        my $class = shift;
        my $args = ref $_[0] ? $_[0] : +{@_};
        
        $args->{package} = __PACKAGE__;
        bless $args, $class;
    }