File Coverage

blib/lib/Object/InsideOut/Metadata.pm

Criterion	Covered	Total	%
statement	110	116	94.8
branch	57	72	79.1
condition			n/a
subroutine	9	9	100.0
pod	3	4	75.0
total	179	201	89.0

package Object::InsideOut::Metadata; {

use strict;
use warnings;

our $VERSION = '4.04';
$VERSION = eval $VERSION;

# Stores method metadata
# Initialized with our own metadata
my %METADATA = (
    'Object::InsideOut::Metadata' => {
        'add_meta'     => {'hidden' => 1},
        'AUTOLOAD'     => {'hidden' => 1},
        'new'          => {'hidden' => 1},
        'create_field' => {'hidden' => 1},
        'add_class'    => {'hidden' => 1},
        'get_classes'  => {'kind' => 'object'},
        'get_methods'  => {'kind' => 'object'},
        'get_args'     => {'kind' => 'object'},
    },
);


### Exported Subroutines ###

sub import
{
    # Export 'add_meta' call
    no strict 'refs';
    my $caller = caller();
    *{$caller.'::add_meta'} = \&add_meta;
    $METADATA{$caller}{'add_meta'}{'hidden'} = 1;
}


# Stores metadata for later use
sub add_meta
{
    my ($class, $name, $meta, $value) = @_;

    if (@_ == 4) {
        $METADATA{$class}{$name}{$meta} = $value;
    } else {
        my $data;
        if (@_ == 3) {
            $$data{$class}{$name} = $meta;
        } elsif (@_ == 2) {
            $$data{$class} = $name;
        } else {
            $data = $class;
        }
        while (my ($c, $mn) = each(%$data)) {
            while (my ($n, $md) = each(%$mn)) {
                while (my ($m, $v) = each(%$md)) {
                    $METADATA{$c}{$n}{$m} = $v;
                }
            }
        }
    }
}


# This will load the OO option of our code.
# It's done this way because of circular dependencies with OIO.
sub AUTOLOAD
{
    # Need 5.8.0 or later
    if ($] < 5.008) {
        OIO::Code->die('message' => q/Introspection API requires Perl 5.8.0 or later/,
                       'ignore_package' => 'Object::InsideOut::Metadata');
    }

    # It's a bug if not invoked by ->new()
    # This should only ever happen once
    if (our $AUTOLOAD ne 'Object::InsideOut::Metadata::new') {
        OIO::Method->die('message' => "Object::InsideOut::Metadata does not support AUTOLOAD of $AUTOLOAD",
                         'ignore_package' => 'Object::InsideOut::Metadata');
    }

    # Workaround to get %METADATA into our scope
    my $meta = \%METADATA;

    # Load the rest of our code
    my $text = do { local $/;  };
    close(DATA);
    eval $text;
    die if $@;

    # Continue on
    goto &Object::InsideOut::new;
}

}  # End of package's lexical scope

1;

__DATA__