Catmanu::BagIt->read should return errors in array context

[nicolasfranck]

Now the read method from Catmandu::Bagit only returns an object or undef

my $bagit = Catmandu::BagIt->read($path)

In array context it should also return the errors:

my($bagit,@errors) = Catmandu::BagIt->read($path)

Which can be done easily:

sub read {
  #..
  if ( wantarray ) {
    #new code
    return $ok == 7 ? ($self) : (undef, $self->errors);
  }
  else {
    #old code
    return $ok == 7 ? $self : undef;
  }

}