Marc Simple

Marc Simple is intented to simplify Marc record handling by providing CRUD API above MARC::Record library.

For exemple, with MARC::Record, you should have done the following to get the value of a subfield:

my $value = '';

if ( $record->field('200') && $record->field('200')->subfield('a') ) {
    $value = $record->field('200')->subfield('a');
}

With Marc Simple, you can do:

my $value = GetSubfield($record, '200$a');

Or, to Add or update a subfield with MARC::Record:

if ( $record->field('200') ) {
    if ( $record->field('200')->subfield('a') ) {
      $record->field('200')->update( 'a' => 'Foo' );
    }
    else {
        $record->field('200')->add_subfields( 'a' => 'Foo' );
    }
}
else {
    my $field = MARC::Field->new('200', '', '', 'a' => 'Foo');
    $record->insert_fields_ordered($field);
}

Can be done like the following with Marc Simple:

use MarcSimple::Crud;

UpdateSubfield($record, '200$a', 'Foo') or AddSubfield($record, '200$a', 'Foo');