File Coverage

lib/Object/Meta/Named.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	7	8	87.5
condition	1	3	33.3
subroutine	6	6	100.0
pod	4	4	100.0
total	44	47	93.6

# @author Bodo (Hugo) Barwich
# @version 2026-01-25
# @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:
#

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

=head1 NAME

Object::Meta::Named - Library to recognise a special C field from the raw data

=cut

package Object::Meta::Named;

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

use parent 'Object::Meta';

use Digest::MD5 qw(md5_hex);

=head1 DESCRIPTION

C implements a class which adds a C field to the raw data which
can be used to index the C entries.

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

The C meta data field becomes the index field.

=cut

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

=head1 METHODS

=head2 Constructor

=head3 new ( [ DATA ] )

This is the constructor for a new C object.
It creates a new object from B which is passed in a hash key / value pairs.

B

=over 4

=item C

The B which is passed in a hash key / value pairs.

If a C field is present it will be used to index the entry.

=back

=cut

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

    #Take the Method Parameters
    my %hshprms = @_[ 1 .. $#_ ];

    my $self = $class->SUPER::new(%hshprms);

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

    if ( defined $hshprms{'name'} ) {
        Object::Meta::Named::setName( $self, $hshprms{'name'} );
    }
    else {

        # Create empty 'name' and 'hash' fields
        Object::Meta::Named::setName $self;
    }

    return $self;
}

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

=head2 Administration Methods

=head3 set ( DATA )

This overrides the base method C to recognize the C field.

See L|Object::Meta/"set ( DATA )">

=cut

sub set {
    my ( $self, %hshprms ) = @_;

    if ( defined $hshprms{'name'} ) {
        Object::Meta::Named::setName( $self, delete $hshprms{'name'} );
    }

    Object::Meta::set( $self, %hshprms );
}

=head3 setName ( [ NAME ] )

This will create a C field in the raw data and index the object by the hash of it.

B

=over 4

=item C

The string value for the name of the object.

If a C is empty or is undefined it will empty the C field and
the C meta data field.

=back

=cut

sub setName {
    my $self = $_[0];

    if ( scalar(@_) > 1 ) {
        Object::Meta::set( $self, 'name', $_[1] );
    }
    else {
        Object::Meta::set( $self, 'name', '' );
    }

    if ( $self->[Object::Meta::LIST_DATA]{'name'} ne '' ) {
        Object::Meta::set( $self, 'hash', md5_hex( $self->[Object::Meta::LIST_DATA]{'name'} ) );
    }
    else {
        Object::Meta::set( $self, 'hash', '' );
    }
}

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

=head2 Consultation Methods

=head3 getName ()

Returns the content of the C field.

=cut

sub getName {
    return $_[0]->[Object::Meta::LIST_DATA]{'name'};
}

return 1;