File Coverage

blib/lib/OpenStack/MetaAPI/Helpers/DataAsYaml.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	3	6	50.0
condition	3	5	60.0
subroutine	5	6	83.3
pod	0	3	0.0
total	35	45	77.7

package OpenStack::MetaAPI::Helpers::DataAsYaml;

use strict;
use warnings;

use YAML::XS ();

our $_CACHE;

## TODO: publish this to CPAN as its own module

### FIXME publish as its own package
###     and provide one import function which can old its own cache

sub LoadData {
    my ($pkg) = @_;

    $pkg //= (caller(0))[0];

    return LoadDataFrom($pkg);
}

sub LoadDataFrom {
    my ($pkg) = @_;

    die "undefined package" unless defined $pkg;

    $_CACHE //= {};
    return $_CACHE->{$pkg} if $_CACHE->{$pkg};

    my $data;
    {
        local $/;
        my $fh = eval '\*' . $pkg . '::DATA';
        $data = <$fh>;
    }

    return unless defined $data;

    $_CACHE->{$pkg} = YAML::XS::Load($data);

    return $_CACHE->{$pkg};
}

sub clear_cache {
    $_CACHE = {};
}

1;

__END__