Sha256: e93e9eb7172ef38448d8610de57d37b291fd73d04551f91b8ce6a75eeaa40019
Contents?: true
Size: 1.91 KB
Versions: 4
Compression:
Stored size: 1.91 KB
Contents
package FFI::Platypus::ShareConfig; use strict; use warnings; use 5.008004; use File::Spec; our $VERSION = '2.10'; # VERSION sub dist_dir ($) { my($dist_name) = @_; my @pm = split /-/, $dist_name; $pm[-1] .= ".pm"; foreach my $inc (@INC) { if(-f File::Spec->catfile($inc, @pm)) { my $share = File::Spec->catdir($inc, qw( auto share dist ), $dist_name ); if(-d $share) { return File::Spec->rel2abs($share); } last; } } Carp::croak("unable to find dist share directory for $dist_name"); } sub get { my(undef, $name) = @_; my $config; unless($config) { my $fn = File::Spec->catfile(dist_dir('FFI-Platypus'), 'config.pl'); $fn = File::Spec->rel2abs($fn) unless File::Spec->file_name_is_absolute($fn); local $@; unless($config = do $fn) { die "couldn't parse configuration $fn $@" if $@; die "couldn't do $fn $!" if $!; die "bad or missing config file $fn"; }; } defined $name ? $config->{$name} : $config; } 1; __END__ =pod =encoding UTF-8 =head1 NAME FFI::Platypus::ShareConfig =head1 VERSION version 2.10 =head1 AUTHOR Author: Graham Ollis E<lt>plicease@cpan.orgE<gt> Contributors: Bakkiaraj Murugesan (bakkiaraj) Dylan Cali (calid) pipcet Zaki Mughal (zmughal) Fitz Elliott (felliott) Vickenty Fesunov (vyf) Gregor Herrmann (gregoa) Shlomi Fish (shlomif) Damyan Ivanov Ilya Pavlov (Ilya33) Petr Písař (ppisar) Mohammad S Anwar (MANWAR) Håkon Hægland (hakonhagland, HAKONH) Meredith (merrilymeredith, MHOWARD) Diab Jerius (DJERIUS) Eric Brine (IKEGAMI) szTheory José Joaquín Atria (JJATRIA) Pete Houston (openstrike, HOUSTON) Lukas Mai (MAUKE) =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2015-2022 by Graham Ollis. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
Version data entries
4 entries across 4 versions & 1 rubygems