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
REPOSITORY
https://github.com/michal-josef-spacek/Data-MARC-Leader
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© 2023-2024 Michal Josef Špaček
BSD 2-Clause License
VERSION
0.04