Data::MARC::Leader - Data object for MARC leader.
use Data::MARC::Leader; my $obj = Data::MARC::Leader->new(%params); my $bibliographic_level = $obj->bibliographic_level; my $char_coding_scheme = $obj->char_coding_scheme; my $data_base_addr = $obj->data_base_addr; my $descriptive_cataloging_form = $obj->descriptive_cataloging_form; my $encoding_level = $obj->encoding_level; my $impl_def_portion_len = $obj->impl_def_portion_len; my $indicator_count = $obj->indicator_count; my $length = $obj->length; my $length_of_field_portion_len = $obj->length_of_field_portion_len; my $multipart_resource_record_level = $obj->multipart_resource_record_level; my $starting_char_pos_portion_len = $obj->starting_char_pos_portion_len; my $status = $obj->status; my $subfield_code_count = $obj->subfield_code_count; my $type = $obj->type; my $type_of_control = $obj->type_of_control; my $undefined = $obj->undefined;
new
my $obj = Data::MARC::Leader->new(%params);
Constructor.
bibliographic_level
TODO
char_coding_scheme
data_base_addr
descriptive_cataloging_form
encoding_level
impl_def_portion_len
indicator_count
length
length_of_field_portion_len
multipart_resource_record_level
starting_char_pos_portion_len
status
subfield_code_count
type
type_of_control
undefined
Returns instance of object.
my $bibliographic_level = $obj->bibliographic_level;
Get bibliographic level flag.
Returns character.
my $char_coding_scheme = $obj->char_coding_scheme;
my $data_base_addr = $obj->data_base_addr;
my $descriptive_cataloging_form = $obj->descriptive_cataloging_form;
my $encoding_level = $obj->encoding_level;
my $impl_def_portion_len = $obj->impl_def_portion_len;
my $indicator_count = $obj->indicator_count;
my $length = $obj->length;
my $length_of_field_portion_len = $obj->length_of_field_portion_len;
my $multipart_resource_record_level = $obj->multipart_resource_record_level;
my $starting_char_pos_portion_len = $obj->starting_char_pos_portion_len;
my $status = $obj->status;
my $subfield_code_count = $obj->subfield_code_count;
my $type = $obj->type;
my $type_of_control = $obj->type_of_control;
my $undefined = $obj->undefined;
new(): TODO
use strict; use warnings; use Data::Printer; use Data::MARC::Leader; my $obj = Data::MARC::Leader->new( 'bibliographic_level' => 'm', 'char_coding_scheme' => 'a', 'data_base_addr' => 541, 'descriptive_cataloging_form' => 'i', 'encoding_level' => ' ', 'impl_def_portion_len' => '0', 'indicator_count' => '2', 'length' => 2200, 'length_of_field_portion_len' => '4', 'multipart_resource_record_level' => ' ', 'starting_char_pos_portion_len' => '5', 'status' => 'c', 'subfield_code_count' => '2', 'type' => 'e', 'type_of_control' => ' ', 'undefined' => '0', ); # Print out. p $obj; # Output: # Data::MARC::Leader { # parents: Mo::Object # public methods (3): # BUILD # Mo::utils: # check_strings # Readonly: # Readonly # private methods (0) # internals: { # bibliographic_level "m", # char_coding_scheme "a", # data_base_addr 541, # descriptive_cataloging_form "i", # encoding_level " ", # impl_def_portion_len 0, # indicator_count 2, # length 2200, # length_of_field_portion_len 4, # multipart_resource_record_level " ", # starting_char_pos_portion_len 5, # status "c", # subfield_code_count 2, # type "e", # type_of_control " ", # undefined 0 # } # }
Mo, Mo::utils, Readonly.
https://github.com/michal-josef-spacek/Data-MARC-Leader
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© 2023 Michal Josef Špaček
BSD 2-Clause License
0.03
To install Data::MARC::Leader, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Data::MARC::Leader
CPAN shell
perl -MCPAN -e shell install Data::MARC::Leader
For more information on module installation, please visit the detailed CPAN module installation guide.