NAME Data::MARC::Leader - Data object for MARC leader. SYNOPSIS 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; METHODS "new" my $obj = Data::MARC::Leader->new(%params); Constructor. * "bibliographic_level" Bibliographic level flag. Default values is undef. * "char_coding_scheme" Character coding scheme. Default values is undef. * "data_base_addr" Base address of data. Default values is undef. * "descriptive_cataloging_form" Descriptive cataloging form. Default values is undef. * "encoding_level" Encoding level. Default values is undef. * "impl_def_portion_len" Length of the implementation-defined portion. Default values is undef. * "indicator_count" Indicator count. Default values is undef. * "length" Record length. Default values is undef. * "length_of_field_portion_len" Length of the length-of-field portion. Default values is undef. * "multipart_resource_record_level" Multipart resource record level. Default values is undef. * "starting_char_pos_portion_len" Length of the starting-character-position portion. Default values is undef. * "status" Record status. Default values is undef. * "subfield_code_count" Subfield code count. Default values is undef. * "type" Type of record. Default values is undef. * "type_of_control" Type of control. Default values is undef. * "undefined" Undefined. Default values is undef. Returns instance of object. "bibliographic_level" my $bibliographic_level = $obj->bibliographic_level; Get bibliographic level flag. Returns character. "char_coding_scheme" my $char_coding_scheme = $obj->char_coding_scheme; Get character coding scheme. Returns character. "data_base_addr" my $data_base_addr = $obj->data_base_addr; Get base address of data. Returns number. "descriptive_cataloging_form" my $descriptive_cataloging_form = $obj->descriptive_cataloging_form; Get descriptive cataloging form. Returns character. "encoding_level" my $encoding_level = $obj->encoding_level; Get encoding level. Returns character. "impl_def_portion_len" my $impl_def_portion_len = $obj->impl_def_portion_len; Get length of the implementation-defined portion. Returns character. "indicator_count" my $indicator_count = $obj->indicator_count; Get indicator count. Returns character. "length" my $length = $obj->length; Get record length. Returns number. "length_of_field_portion_len" my $length_of_field_portion_len = $obj->length_of_field_portion_len; Get length of the length-of-field portion Returns character. "multipart_resource_record_level" my $multipart_resource_record_level = $obj->multipart_resource_record_level; Get multipart resource record level. Returns character. "starting_char_pos_portion_len" my $starting_char_pos_portion_len = $obj->starting_char_pos_portion_len; Get length of the starting-character-position portion. Returns character. "status" my $status = $obj->status; Get record status. Returns character. "subfield_code_count" my $subfield_code_count = $obj->subfield_code_count; Get subfield code count. Returns character. "type" my $type = $obj->type; Get type of record. Returns character. "type_of_control" my $type_of_control = $obj->type_of_control; Get type of control. Returns character. "undefined" my $undefined = $obj->undefined; Get undefined. Returns character. ERRORS new(): Parameter 'bibliographic_level' must be one of defined strings. String: %s Possible strings: a b c d i m s Parameter 'char_coding_scheme' must be one of defined strings. String: %s Possible strings: ' ' a Parameter 'descriptive_cataloging_form' must be one of defined strings. String: %s Possible strings: ' ' a c i n u Parameter 'encoding_level' must be one of defined strings. String: %s Possible strings: ' ' 1 2 3 4 5 7 8 u z Parameter 'impl_def_portion_len' must be one of defined strings. String: %s Possible strings: 0 Parameter 'indicator_count' must be one of defined strings. String: %s Possible strings: 2 Parameter 'length_of_field_portion_len' must be one of defined strings. String: %s Possible strings: 4 Parameter 'multipart_resource_record_level' must be one of defined strings. String: %s Possible strings: ' ' a b c Parameter 'starting_char_pos_portion_len' must be one of defined strings. String: %s Possible strings: 5 Parameter 'status' must be one of defined strings. String: %s Possible strings: a c d n p Parameter 'subfield_code_count' must be one of defined strings. String: %s Possible strings: 2 Parameter 'type' must be one of defined strings. String: %s Possible strings: a c d e f g i j k m o p r t Parameter 'type_of_control' must be one of defined strings. String: %s Possible strings: ' ' a Parameter 'undefined' must be one of defined strings. String: %s Possible strings: 0 EXAMPLE 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 # } # } DEPENDENCIES Mo, Mo::utils, Readonly. REPOSITORY AUTHOR Michal Josef Špaček LICENSE AND COPYRIGHT © 2023-2024 Michal Josef Špaček BSD 2-Clause License VERSION 0.04