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