package Class::Chain;
use strict;
use warnings;

sub AUTOLOAD {
    my $self = shift;
    our $AUTOLOAD;
    my ($method) = ($AUTOLOAD =~ m/^.*::(.*)$/);
    return bless \$self->$method(@_) unless ref($self);
    return $$self->$1(@_) if $method =~ m/^raw_(.*)$/;
    return bless \$$self->$1(@_) if $method =~ m/^wrap_(.*)$/;
    $$self->$method(@_);
    return($self);
};

sub chain {
    my ($self, $sub) = @_;
    $sub->($self);
    $self;
};

sub DESTROY {};