|
Lines 87-103
sub new {
Link Here
|
| 87 |
return; |
87 |
return; |
| 88 |
} |
88 |
} |
| 89 |
|
89 |
|
| 90 |
my $record = $params->{ record }; |
90 |
$params->{format} //= 'MARC'; |
| 91 |
my $schema = $params->{ schema }; |
91 |
my $self = $class->SUPER::new($params); |
| 92 |
my $format = $params->{ format } // 'MARC'; |
|
|
| 93 |
my $id = $params->{ id }; |
| 94 |
|
| 95 |
my $self = $class->SUPER::new({ |
| 96 |
record => $record, |
| 97 |
schema => $schema, |
| 98 |
format => $format, |
| 99 |
id => $id |
| 100 |
}); |
| 101 |
|
92 |
|
| 102 |
bless $self, $class; |
93 |
bless $self, $class; |
| 103 |
return $self; |
94 |
return $self; |
| 104 |
- |
|
|