OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Business-ISSN?expand=0&rev=2
This commit is contained in:
parent
aa0e684206
commit
e6904f9765
@ -52,36 +52,6 @@ BuildRequires: perl-macros
|
|||||||
object-oriented interface and use the c<is_valid_checksum()> function
|
object-oriented interface and use the c<is_valid_checksum()> function
|
||||||
which is exportable on demand.
|
which is exportable on demand.
|
||||||
|
|
||||||
If the constructor decides it can't create an object, it returns undef.
|
|
||||||
It may do this if the string passed as the ISSN can't be munged to the
|
|
||||||
internal format.
|
|
||||||
|
|
||||||
* $obj->checksum
|
|
||||||
|
|
||||||
Return the ISSN checksum.
|
|
||||||
|
|
||||||
* $obj->as_string
|
|
||||||
|
|
||||||
Return the ISSN as a string.
|
|
||||||
|
|
||||||
A terminating 'x' is changed to 'X'.
|
|
||||||
|
|
||||||
* $obj->is_valid
|
|
||||||
|
|
||||||
Returns 1 if the checksum is valid.
|
|
||||||
|
|
||||||
Returns 0 if the ISSN does not pass the checksum test. The constructor
|
|
||||||
accepts invalid ISSN's so that they might be fixed with 'fix_checksum'.
|
|
||||||
|
|
||||||
* $obj->fix_checksum
|
|
||||||
|
|
||||||
Replace the eighth character with the checksum the corresponds to the
|
|
||||||
previous seven digits. This does not guarantee that the ISSN corresponds
|
|
||||||
to the product one thinks it does, or that the ISSN corresponds to any
|
|
||||||
product at all. It only produces a string that passes the checksum
|
|
||||||
routine. If the ISSN passed to the constructor was invalid, the error
|
|
||||||
might have been in any of the other nine positions.
|
|
||||||
|
|
||||||
%prep
|
%prep
|
||||||
%setup -q -n %{cpan_name}-%{version}
|
%setup -q -n %{cpan_name}-%{version}
|
||||||
find . -type f -print0 | xargs -0 chmod 644
|
find . -type f -print0 | xargs -0 chmod 644
|
||||||
|
Loading…
x
Reference in New Issue
Block a user