/ 
Hades-0.01
River stage one • 5 direct dependents • 9 total dependents
/ Hades

NAME

Hades - The great new Hades!

VERSION

Version 0.01

SYNOPSIS

use Hades;

Hades->run({
	eval => 'Kosmos { penthos curae nosoi geras { if ($_[0]->penthos == $_[0]->nosoi) { return $_[0]->curae; } } }'
});

... generates ...

package Kosmos;
use strict;
use warnings;
our $VERSION = 0.01;

sub new {
	my ( $cls, %args ) = ( shift(), scalar @_ == 1 ? %{ $_[0]; } : @_ );
	bless \%args, $cls;
}

sub penthos {
	my ( $self, $value ) = @_;
	if ( defined $value ) {
		$self->{'penthos'} = $value;
	}
	return $self->{'penthos'};
}

sub curae {
	my ( $self, $value ) = @_;
	if ( defined $value ) {
		$self->{'curae'} = $value;
	}
	return $self->{'curae'};
}

sub nosoi {
	my ( $self, $value ) = @_;
	if ( defined $value ) {
		$self->{'nosoi'} = $value;
	}
	return $self->{'nosoi'};
}

sub geras {
	if ( $_[0]->penthos == $_[0]->nosoi ) { return $_[0]->curae; }
}

1;

__END__

SUBROUTINES/METHODS

run

file

Provide a file to read in.

eval

Provide a string to eval.

dist

Provide a name for the distribution.

lib

Provide a path where the generated files will be compiled.

author

The author of the distribution/module.

email

The authors email of the distribution/module.

version

The version number of the distribution/module.

AUTHOR

LNATION, <email at lnation.org>

BUGS

Please report any bugs or feature requests to bug-hades at rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Hades. 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

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)