view release on metacpan or  search on metacpan

lib/App/DrivePlayer/DB.pm  view on Meta::CPAN

            mime_type     => _trunc($t{mime_type},     'mime_type'),
            modified_time => _trunc($t{modified_time}, 'modified_time'),
            folder_id     => $t{folder_id},
            folder_path   => _trunc($t{folder_path},   'folder_path'),
            genre         => _trunc($t{genre},         'genre'),
            comment       => _trunc($t{comment},       'comment'),
        });
    }
}

sub update_track_metadata {
    my ($self, $id, %fields) = @_;
    my $row = $self->_rs('Track')->find($id) or return;
    my %allowed = map { $_ => 1 }
        qw( title artist album track_number year duration_ms genre comment );
    my %update = map { $_ => $fields{$_} }
        grep { $allowed{$_} } keys %fields;
    $row->update(\%update) if %update;
}

# Count tracks whose $field exactly equals $value, optionally excluding one