Class::DBI::Plugin::Clone

Perl

なんとなく作ってみました。

Class::DBIで作ったオブジェクトのクローンが欲しいときにでもどうぞ。



package Class::DBI::Plugin::Clone;

use strict;

use warnings;

use Carp;

use Clone qw(clone);

use vars '$VERSION';

$VERSION = '0.01';

sub import {

    my $class = shift;

    my $pkg   = caller(0);

    unless($pkg->isa('Class::DBI')){

        croak(__PACKAGE__." is for Class::DBI application.");

    }

    no strict 'refs';

    *{"$pkg\::clone"} = sub {

        my ($class,$target) = @_;

        clone($target);

    };

}

1;

普通、必要ないような＾＾；