view release on metacpan or  search on metacpan

DB/Build.pm  view on Meta::CPAN

71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
  $self->_load_db();
  my $stats = $self->get_stats();
  return $stats;
}
 
 
# UPDATE DATABASE IS NOT COMPLETELY WORKING YET!!
# Wrapper method for quickly adding new songs to a database.
# This needs to check within the DB itself for artists
# and albums, as well as within the current set.
sub update_database {
  my ($self,@p) = @_;
  my ($dirs,$files,$columns,$tmp,$shout,@others) =
    rearrange([
               [qw(DIR DIRS TOP_DIRS)],
               FILES,
               COLUMNS,
               TMP,
               [qw(VERBOSE YELL SCREAM)],
              ],@p);