File Coverage

blib/lib/Bootylicious/Decorator.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	33	90.9

package Bootylicious::Decorator;

use strict;
use warnings;

use base 'Mojo::Base';

__PACKAGE__->attr('object');

sub new {
    my $class  = shift;
    my $object = shift;

    my $self = $class->SUPER::new(@_);

    $self->object($object);

    return $self;
}

our $AUTOLOAD;

sub AUTOLOAD {
    my $self = shift;

    my $method = $AUTOLOAD;

    return if $method =~ /^[A-Z]+?$/;
    return if $method =~ /^_/;
    return if $method =~ /(?:\:*?)DESTROY$/;

    $method = (split '::' => $method)[-1];

    return $self->object->$method(@_);
}

1;