ここだけじゃないと思うけど、意図したとおりに動くこれ？

この辺整理したほうが良いと思う。
```perl

package Hoge {
    use Data::Dumper;

    sub new {
        my $class = shift;

        bless {
        }, $class;
    }

    sub mmm {
        my $arg = shift;
        print Dumper $arg;
    }
};

Hoge->mmm('unko');
Hoge::mmm('unko');
Hoge->new->mmm('unko')
```

```
% perl hoge.pl                                                                                                                                                                                                                           18 ↵
$VAR1 = 'Hoge';
$VAR1 = 'unko';
$VAR1 = bless( {}, 'Hoge' );
```