package MusicBrainz::Server::Form::Field::Length;
use Moose;

use MusicBrainz::Server::Track;
use MusicBrainz::Server::Translation qw( l ln );
use Try::Tiny;

extends 'HTML::FormHandler::Field::Text';

has '+fif_from_value' => ( default => 1 );

has '+deflate_method' => (
    default => sub { \&deflate_length }
);

sub deflate_length {
    my ($self, $value) = @_;
    $value ||= $self->value;
    return MusicBrainz::Server::Track::FormatTrackLength($value);
}

sub validate
{
    my $self = shift;

    try {
        my $length = MusicBrainz::Server::Track::UnformatTrackLength($self->value);
        $self->_set_value($length);
    }
    catch {
        $self->add_error(l('Not a valid time. Must be in the format MM:SS'));
    };
}

__PACKAGE__->meta->make_immutable;
use namespace::autoclean;
1;