File Coverage

lib/Object/Meta/File.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	8	10	80.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	4	4	100.0
total	39	43	90.7

#
# @author Bodo (Hugo) Barwich
# @version 2026-01-29
# @package Object::Meta
# @subpackage lib/Object/Meta/File.pm

# This Module defines Classes to manage Data in an indexed List
#
#---------------------------------
# Requirements:
#
#---------------------------------
# Features:
#

#==============================================================================
# The Object::Meta::File Package

=head1 NAME

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

=cut

package Object::Meta::File;

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

use parent 'Object::Meta::Named';

=head1 DESCRIPTION

C implements a class which adds a C and a C field
to the raw data which can be used to index the C entries.
It works exactly like the C class.

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.

If a C field is present it will be passed to the C
method.

=back

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

=cut

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

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

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

    if ( defined $hshprms{'directoryname'} ) {
        Object::Meta::File::setDirectoryName( $self, $hshprms{'directoryname'} );
    }
    else {
        Object::Meta::File::setDirectoryName $self;
    }

    #Give the Object back
    return $self;
}

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

=head2 Administration Methods

=head3 set ( DATA )

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

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

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

=cut

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

    if ( defined $hshprms{'directoryname'} ) {
        Object::Meta::File::setDirectoryName( $self, delete $hshprms{'directoryname'} );
    }

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

=head3 setDirectoryName ( [ DIRECTORY ] )

This will create a C field in the raw data.

B

=over 4

=item C

The string value for the directory name of the object.

If C is empty or is undefined it will empty the C field.

If C does not have a trailing slash C< / > it will be added.

=back

=cut

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

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

    if ( $self->[Object::Meta::LIST_DATA]{'directoryname'} ne '' ) {
        $self->[Object::Meta::LIST_DATA]{'directoryname'} .= '/'
          unless ( $self->[Object::Meta::LIST_DATA]{'directoryname'} =~ m#/$# );

    }
}

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

=head2 Consultation Methods

=head3 getDirectoryName ()

Returns the content of the C field.

=cut

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

return 1;