File perl-MusicBrainz-DiscID.spec of Package perl-MusicBrainz-DiscID

#
# spec file for package perl-MusicBrainz-DiscID
#
# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
# upon. The license for this file, and modifications and additions to the
# file, is the same license as for the pristine package itself (unless the
# license for the pristine package is not an Open Source License, in which
# case the license is the MIT License). An "Open Source License" is a
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.

# Please submit bugfixes or comments via https://bugs.opensuse.org/
#


Name:           perl-MusicBrainz-DiscID
Version:        0.06
Release:        0
%define cpan_name MusicBrainz-DiscID
Summary:        Perl interface for the MusicBrainz libdiscid library
License:        MIT
Group:          Development/Libraries/Perl
Url:            https://metacpan.org/release/%{cpan_name}
Source0:        https://cpan.metacpan.org/authors/id/N/NJ/NJH/%{cpan_name}-%{version}.tar.gz
BuildRoot:      %{_tmppath}/%{name}-%{version}-build
BuildRequires:  perl pkg-config libdiscid0 libdiscid-devel
BuildRequires:  perl-macros
BuildRequires:  perl(Test::Pod) >= 1.00
%{perl_requires}

%description
MusicBrainz::DiscID is a class to calculate a MusicBrainz DiscID from an
audio CD in the drive. The coding style is slightly different to the C
interface to libdiscid, because it makes use of perl's Object Oriented
functionality.

* MusicBrainz::DiscID::default_device()

Returns a device string for the default device for this platform.

* MusicBrainz::DiscID::new( [$device] )

Construct a new DiscID object.

As an optional argument the name of the device to read the ID from may be
given. If you don't specify a device here you can later read the ID with
the read method.

* $discid->error_msg()

Return a human-readable error message of the last error that occured.

* $discid->first_track_num()

Return the number of the first track on this disc (usually 1). Returns
undef if no ID was yet read.

* $discid->last_track_num()

Return the number of the last track on this disc.

* $discid->id()

Returns the DiscID as a string. Returns undef if no ID was yet read.

* $discid->last_track_num()

Return the number of the last track on this disc. Returns undef if no ID
was yet read.

* $discid->put( $first_track, $sectors, $offset1, $offset2, ... )

This function may be used if the TOC has been read earlier and you want to
calculate the disc ID afterwards, without accessing the disc drive.

* $discid->read( [$device] )

Read the disc ID from the given device. If no device is given the default
device of the platform will be used. On error, this function returns false
and sets the error message which you can access $discid->error_msg().

* $discid->sectors()

Return the length of the disc in sectors. Returns undef if no ID was yet
read.

* $discid->submission_url()

Returns a submission URL for the DiscID as a string. Returns undef if no ID
was yet read.

* $discid->track_length( $track_num )

Return the length of a track in sectors.

* $discid->track_offset( $track_num )

Return the sector offset of a track.

%prep
%setup -q -n %{cpan_name}-%{version}

%build
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
make %{?_smp_mflags}

%check
make test

%install
%perl_make_install
%perl_process_packlist
%perl_gen_filelist

%files -f %{name}.files
%defattr(-,root,root,755)
%doc Changes examples README.md
%license LICENSE.md

%changelog