File Coverage

blib/lib/FFI/Build/PluginData.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	23	24	95.8

package FFI::Build::PluginData;

use strict;
use warnings;
use parent qw( Exporter );

our @EXPORT_OK = qw( plugin_data );

# ABSTRACT: Platform and local customizations of FFI::Build
our $VERSION = '2.06_01'; # TRIAL VERSION


sub plugin_data
{
  my($self) = @_;
  my $caller = caller;
  if($caller =~ /^FFI::Build::Plugin::(.*)$/)
  {
    return $self->{plugin_data}->{$1} ||= {};
  }
  else
  {
    require Carp;
    Carp::croak("plugin_data must be called by a plugin");
  }
}

1;

__END__