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-Compiled-Params-0.03
River stage zero No dependents
/ Hades::Realm::Compiled::Params

NAME

Hades::Realm::Compiled::Params - The great new Hades::Realm::Compiled::Params!

VERSION

Version 0.03

SYNOPSIS

        use Hades::Realm::Compiled::Params;

        Hades::Realm::Compiled::Params->run({
                eval => q|
                        Kosmos { 
                                penthos :d(2) :p :pr :c :t(Int) 
                                curae :r :t(Any) 
                                geras $nosoi :t(Int) { 
                                        if ($self->penthos == $nosoi) { 
                                                return $self->curae; 
                                        } 
                                } 
                        }
                |,
                lib => 't/lib'
        });

        ... generates ...

        package Kosmos;
        use strict;
        use warnings;
        use Types::Standard qw/Str Optional HashRef Tuple Map Dict ArrayRef Int Any/;
        use Compiled::Params::OO;
        our $VERSION = 0.01;
        our $VALIDATE;

        BEGIN {
                $VALIDATE = Compiled::Params::OO::cpo(
                        penthos => [ Int, { default => 2 } ],
                        curae   => [ Any ],
                        geras   => [ Int, { default => 2 } ]
                );
        }

        sub new {
                my ( $cls, %args ) = ( shift(), scalar @_ == 1 ? %{ $_[0] } : @_ );
                my $self = bless {}, $cls;
                my %accessors
                    = ( curae => { required => 1, }, penthos => { default => 2, }, );
                for my $accessor ( keys %accessors ) {
                        my $value
                            = $self->$accessor(
                                defined $args{$accessor}
                                ? $args{$accessor}
                                : $accessors{$accessor}->{default} );
                        unless ( !$accessors{$accessor}->{required} || defined $value ) {
                                die "$accessor accessor is required";
                        }
                }
                return $self;
        }

        sub penthos {
                my ( $self, $value ) = @_;
                my $private_caller = caller();
                if ( $private_caller ne __PACKAGE__ ) {
                        die "cannot call private method penthos from $private_caller";
                }
                if ( defined $value ) {
                        ($value) = $VALIDATE->penthos->($value);
                        $self->{penthos} = $value;
                }
                return $self->{penthos};
        }

        sub clear_penthos {
                my ($self) = @_;
                delete $self->{penthos};
                return $self;
        }

        sub has_penthos {
                my ($self) = @_;
                return exists $self->{penthos};
        }

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

        sub geras {
                my ( $self, $nosoi ) = ( shift, $VALIDATE->geras->(@_) );
                if ( $self->penthos == $nosoi ) { return $self->curae; }
        }

SUBROUTINES/METHODS

new

Instantiate a new Hades::Realm::Compiled::Params object.

        Hades::Realm::Compiled::Params->new

push_cpo

call push_cpo method. Expects param $key to be a Str, param $value to be a Str.

        $obj->push_cpo($key, $value)

build_accessor

call build_accessor method.

build_sub

call build_sub method. Expects param $mg to be a Ref, param $name to be a Str, param $meta to be a HashRef.

        $obj->build_sub($mg, $name, $meta)

build_type

call build_type method. Expects param $name to be a Str, param $type to be a Optional[Str], param $value to be a Optional[Str].

        $obj->build_type($name, $type, $value)

after_class

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

        $obj->after_class($mg)

ACCESSORS

cpo

get or set cpo.

        $obj->cpo;

        $obj->cpo($value);

AUTHOR

LNATION, <email at lnation.org>

BUGS

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

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)