File Coverage

lib/Object/Meta/Named/List.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	5	10	50.0
condition	3	9	33.3
subroutine	6	6	100.0
pod	3	3	100.0
total	44	57	77.1

# @author Bodo (Hugo) Barwich
# @version 2025-10-24
# @package Indexed List by Name
# @subpackage classes_metanames.pm

# This Module defines Classes to manage Data indexed in a List by its Name
#
#---------------------------------
# Requirements:
# - The Perl Package "perl-Digest-MD5" must be installed
# - The Perl Package "perl-Data-Dump" must be installed
#
#---------------------------------
# Features:
# path  /object-meta/lib/Object/Meta/Named/List.pm

#==============================================================================
# The Object::Meta::Named::List Package

=head1 NAME

Object::Meta::Named::List - Library to index C instances by
their C field.

=cut

package Object::Meta::Named::List;

#----------------------------------------------------------------------------
#Dependencies

use parent 'Object::Meta::List';

use Scalar::Util qw(blessed);
use Digest::MD5  qw(md5_hex);

=head1 DESCRIPTION

C implements a class which indexes C
instances by their C field.

Additionally a C meta data field will be created for indexation and lookup.

The C meta data field is used to lookup entries.

=cut

#----------------------------------------------------------------------------
#Constructors

=head1 METHODS

=head2 Constructor

=head3 new ( [ DATA ] )

This is the constructor for a new C object.

This overrides the C constructor to create the 'I' index
on the 'hash' field.

B

=over 4

=item C

The B which is passed in a hash like fashion,
using key and value pairs.

=back

See L|Object::Meta::List/"new ( [ DATA ] )">

=cut

sub new {
    my $class = ref( $_[0] ) || $_[0];

    my $self = $class->SUPER::new( @_[ 1 .. $#_ ] );

    #Index the Name Field
    Object::Meta::List::setIndexField( $self, 'hash' );

    return $self;
}

#----------------------------------------------------------------------------
#Administration Methods

=head2 Administration Methods

=head3 Add ( [ C | DATA ] )

This works like C only that it handles
C instances.

If no parameter is given it creates an empty instance of C
and adds it to the list

B

=over 4

=item C

An instance of C to be added to the list.

=item C

A hash with data to create an instance of C and add it to the list.

=back

B C - The object which was created or added.

See L|Object::Meta::List/"Add ( [ C | DATA ] )">

=cut

sub Add {
    my $self   = $_[0];
    my $mtaety = undef;

    if ( scalar(@_) > 1 ) {
        if ( defined blessed $_[1] ) {
            $mtaety = $_[1];
        }
        else    #Parameter is not an Object
        {
            #Create the new MetaNameEntry Object from the given Parameters
            $mtaety = Object::Meta::Named::->new( @_[ 1 .. $#_ ] );
        }
    }

    if ( defined $mtaety && !$mtaety->isa('Object::Meta::Named') ) {
        $mtaety = undef;
    }

    $mtaety = Object::Meta::Named::->new unless ( defined $mtaety );

    #Execute the Base Logic
    Object::Meta::List::Add( $self, $mtaety );

    return $mtaety;
}

#----------------------------------------------------------------------------
#Consultation Methods

=head2 Consultation Methods

=head3 getMetaObjectbyName ( NAME )

This works like C only that it uses
the hash of the the C field to find the object.

B

=over 4

=item C

The string value for the C field of the object.

=back

B C - The object with the C field having the
value I.

See L|Object::Meta::List/"getIdxMetaObject ( INDEX, NAME )">

=cut

sub getMetaObjectbyName {
    my ( $self, $snm ) = @_;
    my $mtaety = undef;

    if ( defined $snm
        && $snm ne '' )
    {
        $mtaety = Object::Meta::List::getIdxMetaObject( $self, md5_hex($snm) );
    }

    return $mtaety;
}

return 1;