Main   Changelog   Spec   Patches   Sources   Download   Gear   Bugs and FR  Repocop 

%define _unpackaged_files_terminate_build 1
%define module_name Digest-SHA3
# BEGIN SourceDeps(oneline):
BuildRequires: perl(Carp.pm) perl(Config.pm) perl(Digest/base.pm) perl(DynaLoader.pm) perl(Exporter.pm) perl(Fcntl.pm) perl(XSLoader.pm)
# END SourceDeps(oneline)
BuildRequires: rpm-build-perl perl-devel perl-podlators

Name: perl-%module_name
Version: 1.05
Release: alt1
Summary: Perl extension for SHA-3
Group: Development/Perl
License: perl
Url: %CPAN %module_name

Source0: http://www.cpan.org/authors/id/M/MS/MSHELOR/%{module_name}-%{version}.tar.gz

%description
Digest::SHA3 is written in C for speed.  If your platform lacks a C
compiler, perhaps you can find the module in a binary form compatible
with your particular processor and operating system.

The programming interface is easy to use: it's the same one found
in CPAN's the Digest manpage module.  So, if your applications currently use
the Digest::SHA manpage and you'd prefer the newer flavor of the NIST standard,
it's a simple matter to convert them.

The interface provides two ways to calculate digests:  all-at-once,
or in stages.  To illustrate, the following short program computes
the SHA3-256 digest of "hello world" using each approach:

_use Digest::SHA3 qw(sha3_256_hex);

_$data = "hello world";
_ at frags = split(//, $data);

_# all-at-once (Functional style)
_$digest1 = sha3_256_hex($data);

_# in-stages (OOP style)
_$state = Digest::SHA3->new(256);
_for ( at frags) { $state->add($_) }
_$digest2 = $state->hexdigest;

_print $digest1 eq $digest2 ?
__"that's the ticket!\n" : "oops!\n";

To calculate the digest of an n-bit message where *n* is not a
multiple of 8, use the *add_bits()* method.  For example, consider
the 446-bit message consisting of the bit-string "110" repeated
148 times, followed by "11".  Here's how to display its SHA3-512
digest:

_use Digest::SHA3;
_$bits = "110" x 148 . "11";
_$sha3 = Digest::SHA3->new(512)->add_bits($bits);
_print $sha3->hexdigest, "\n";

Note that for larger bit-strings, it's more efficient to use the
two-argument version *add_bits($data, $nbits)*, where *$data* is
in the customary packed binary format used for Perl strings.

%package scripts
Summary: %module_name scripts
Group: Development/Perl
Requires: %name = %{?epoch:%epoch:}%version-%release
BuildArch: noarch

%description scripts
scripts for %module_name


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

%build
%perl_vendor_build INSTALLMAN1DIR=%_man1dir

%install
%perl_vendor_install

%files
%doc Changes README examples
%perl_vendor_archlib/D*
%perl_vendor_autolib/*

%files scripts
%_bindir/*
%_man1dir/*

%changelog
…
Full changelog you can see here