view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/errno.pm  view on Meta::CPAN

package Acme::MetaSyntactic::errno;
use strict;
use Acme::MetaSyntactic::MultiList;
our @ISA     = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '1.003';

use Errno ();

__PACKAGE__->init(
    {   default => 'PERL',
        names   => {
            POSIX => join( ' ', @{ $Errno::EXPORT_TAGS{POSIX} } ),
            PERL  => join( ' ', keys %! ),
        },
    }
);

1;

=head1 NAME