The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Hades-Realm-Import-Export-0.04
River stage zero No dependents
++
/ Hades::Realm::Import::Export

NAME

Hades::Realm::Import::Export - Hades realm for Import::Export

VERSION

Version 0.01

SYNOPSIS

Quick summary of what the module does:

        Hades->run({
                eval => 'Kosmos {
                        [curae penthos] :t(Int) :d(2) :p :pr :c :r :i(1, GROUP)
                        geras $nosoi :t(Int) :d(5) :i { if (£penthos == $nosoi) { return £curae; } } 
                }',
                realm => 'Import::Export',
        });

        ... generates ...

        package Kosmos;
        use strict;
        use warnings;
        use base qw/Import::Export/;
        our $VERSION = 0.01;
        our ( %EX, %ACCESSORS );

        BEGIN {
                %EX = (
                       'curae'  => [ 'EXPORT',    'EXPORT_OK', 'ACCESSORS', 'GROUP' ],
                       'clear_penthos' => [ 'EXPORT',    'EXPORT_OK', 'CLEARERS' ],
                       'penthos'       => [ 'EXPORT',    'EXPORT_OK', 'ACCESSORS', 'GROUP' ],
                       'geras'  => [ 'EXPORT_OK', 'METHODS' ],
                       'has_curae'     => [ 'EXPORT',    'EXPORT_OK', 'PREDICATES' ],
                       'has_penthos'   => [ 'EXPORT',    'EXPORT_OK', 'PREDICATES' ],
                       'clear_curae'   => [ 'EXPORT',    'EXPORT_OK', 'CLEARERS' ]
                );
                %ACCESSORS = ( curae => 2, penthos => 2, );
        }

        sub curae {
                my ($value) = @_;
                my $private_caller = caller();
                if ( $private_caller ne __PACKAGE__ ) {
                       die "cannot call private method curae from $private_caller";
                }
                if ( defined $value ) {
                       if ( ref $value || $value !~ m/^[-+\d]\d*$/ ) {
                              die qq{Int: invalid value $value for accessor curae};
                       }
                       $ACCESSORS{curae} = $value;
                }
                return $ACCESSORS{curae};
        }

        sub has_curae {
                return exists $ACCESSORS{curae};
        }

        sub clear_curae {
                delete $ACCESSORS{curae};
                return 1;
        }

        sub penthos {
                my ($value) = @_;
                my $private_caller = caller();
                if ( $private_caller ne __PACKAGE__ ) {
                       die "cannot call private method penthos from $private_caller";
                }
                if ( defined $value ) {
                       if ( ref $value || $value !~ m/^[-+\d]\d*$/ ) {
                              die qq{Int: invalid value $value for accessor penthos};
                       }
                       $ACCESSORS{penthos} = $value;
                }
                return $ACCESSORS{penthos};
        }

        sub has_penthos {
                return exists $ACCESSORS{penthos};
        }

        sub clear_penthos {
                delete $ACCESSORS{penthos};
                return 1;
        }

        sub geras {
                my ($nosoi) = @_;
                $nosoi = defined $nosoi ? $nosoi : 5;
                if ( !defined($nosoi) || ref $nosoi || $nosoi !~ m/^[-+\d]\d*$/ ) {
                       $nosoi = defined $nosoi ? $nosoi : 'undef';
                       die
                          qq{Int: invalid value $nosoi for variable \$nosoi in method geras};
                }
                if ( penthos() == $nosoi ) { return curae(); }
        }

        1;

        __END__

SUBROUTINES/METHODS

new

Instantiate a new Hades::Realm::Import::Export object.

        Hades::Realm::Import::Export->new

build_new

call build_new method.

build_exporter

call build_exporter method. Expects param $begin to be a Str, param $mg to be a Object, param $export to be a HashRef, param $meta to be a HashRef.

        $obj->build_exporter($begin, $mg, $export, $meta)

after_class

call after_class method. Expects param $mg to be a Object.

        $obj->after_class($mg)

AUTHOR

LNATION, <email at lnation.org>

BUGS

Please report any bugs or feature requests to bug-hades::realm::import::export at rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Hades-Realm-Import-Export. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Hades::Realm::Import::Export

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

This software is Copyright (c) 2020 by LNATION.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

1 POD Error

The following errors were encountered while parsing the POD:

Around line 103:

Non-ASCII character seen before =encoding in '(£penthos'. Assuming CP1252