Browse Source

- minor cleanup

- polished output
master
Andreas Romeyke 2 months ago
parent
commit
2dc3747006
1 changed files with 4 additions and 7 deletions
  1. +4
    -7
      lib/File/FormatIdentification/Pronom.pm

+ 4
- 7
lib/File/FormatIdentification/Pronom.pm View File

@@ -1,6 +1,6 @@
package File::FormatIdentification::Pronom;

use 5.024001;
use feature qw(say);
use strict;
use warnings;
use diagnostics;
@@ -547,9 +547,7 @@ sub get_signature_id_by_puid {
my $self = shift;
my $puid = shift;
my $sig = $self->{puids}->{$puid};
no warnings;
return $sig;
use warnings;
}

sub get_internal_ids_by_puid {
@@ -889,13 +887,13 @@ sub print_statistics {

if ( defined $verbose ) {
say " (",
join( ",", @{ $results->{internal_ids_without_puids} } ), ")";
join( ", ", sort @{ $results->{puids_with_fileendings_only} } ), ")";
}
say
" orphaned internal IDs: $results->{count_of_orphaned_internal_ids}";
if ( defined $verbose ) {
say " (",
join( ",", @{ $results->{internal_ids_without_puids} } ), ")";
join( ", ", sort {$a <=> $b} @{ $results->{internal_ids_without_puids} } ), ")";
}
say "";
say "Quality of internal IDs";
@@ -934,8 +932,7 @@ sub print_statistics {
say " regex='"
. $results->{multiple_used_regex}->[$i]->{regex} . "'";
say " internal IDs: ",
join( ",",
@{ $results->{multiple_used_regex}->[$i]->{internal_ids} } );
join( ",", @{ $results->{multiple_used_regex}->[$i]->{internal_ids} } );
}
}
say "";


Loading…
Cancel
Save