—
—
—
—
—
—

              
# $Id: Build.PL 496 2014-02-26 17:39:18Z whynot $
use strict;
use warnings;
package main;
use version 0.77; our $VERSION = version->declare( v0.1.5 );
use Module::Build 0.28;
HideShow 72 lines of Pod
=head1 OVERVIEW
B<File::AptFetch> provides API for APT (Advanced Package Tool, that's the
Debian package management system) methods.
APT methods aren't libraries, they are executables
(placed, by default, in
F</var/lib/apt/methods>).
So it's not XS (and can't be), B<F::AF> forks.
However one doesn't need fork for each file or session.
The IPC is B<pipe>
(and can't be anything else).
As you can see there's a limit of number of methods available simultaneously
posed by the maximum number of open filehandles
(APT methods aren't that numerous anyway).
The module is named B<File::AptFetch> because it always fetches.
I think that's possible to develop a method that would bring away files, but,
at present, there's none.
And I doubt there would be any.
Further reading:
=over
=item B<File::AptFetch>
POD of the module.
Covers API and provides examples of intended usage.
B<(bug)> It's underdeveloped yet.
=item B<File::AptFetch::Cookbook>
Provides some useful, I believe, findings on each method behaviour
and an overview, of my understanding, how that stuff works.
Look, APT methods API documentation is quite outdated.
Each method is undocumented completely.
B<(bug)> My knowledge of APT methods is very irregular, so is B<F::AF::C>.
=back
=head1 RUN-TIME REQUIREMENTS
=over
=item B<Perl>
B<v.5.8.0> or later.
Look, B<v.5.6.2> is C<woody>.
Eight years ago.
You must be kidding.
=item B<IO::Pipe>
Any version.
It's distributed with Perl itself.
In core since B<v.5.3.7>, predates debian, BTW.
=back
=head1 BUILD-TIME REQUIREMENTS
=over
=item B<Test::More>
Any version.
Should be distributed with Perl itself too.
=back
=cut
my $builder = Module::Build->new(
  module_name       =>                          q|File::AptFetch|,
  dynmic_config     =>                                          1,
  dist_author       =>        q|Eric Pozharski <whynot@cpan.org>|,
  dist_version_from =>                         q|lib/AptFetch.pm|,
  sign              =>                                          1,
  requires          =>
  { perl        => qv v5.8.0,
    version     =>  qv v0.77,
    Carp        =>        '',
    Cwd         =>        '',
    q|IO::Pipe| =>        ''                                    },
  build_requires    =>
  { q|Test::More| => '',    q|File::Temp| => '',    POSIX => '' },
  pm_files =>
  { q|lib/AptFetch.pm| =>        q|lib/File/AptFetch.pm|,
    q|lib/Simple.pm|   => q|lib/File/AptFetch/Simple.pm|        },
  pod_files         =>
  { q|lib/Cookbook.pod| =>    q|lib/File/AptFetch/Cookbook.pod| },
  add_to_cleanup    => [qw|                 *.tmp *.bak skip_* |] );
# TODO:201402091303:whynot: B<Software::License> support has been added to B<M::B> I<0.36_14>, so 20100822, so B<perl> I<5.12.2>, so B<version> I<0.83>
# FIXME:201402250150:whynot: B<CPAN::Meta> does weird stuff.
if( version->parse( $Module::Build::VERSION ) > qv v0.36 )      {
    $builder->license( q|LGPL_3_0| );
    $builder->configure_requires( q|Module::Build| => qv v0.36 ) }
else                                                            {
    $builder->license( q|open_source| );
    $builder->configure_requires( q|Module::Build| => qv v0.28 );
    $builder->meta_add({ resources =>
    { license => q|http://www.gnu.org/licenses/lgpl-3.0.txt| }}) }
HideShow 16 lines of Pod
=head1 BUILD-TIME CONFIGURATION
=over
=cut
=item C<lib_method>
That sets location of APT methods.
It's unrequired,
it will be set any time APT configuration is sourced.
L<File::AptFetch/_cache_configuration()> and
L<File::AptFetch/_uncache_configuration()> have more.
=cut
#$builder->config_data(lib_method    => q|/usr/lib/apt/methods|);
HideShow 8 lines of Pod
=item C<config_source>
Required.
C<ARRAY> ref that will be B<exec>ed.
L<File::AptFetch/_cache_configuration()> has more.
=cut
$builder->config_data( config_source => [qw| /usr/bin/apt-config dump |]);
HideShow 8 lines of Pod
=item C<signal>
Required.
Names a signal that will be sent to method.
L<File::AptFetch/DESTROY> has more.
=cut
$builder->config_data( signal => q|TERM| );
HideShow 12 lines of Pod
=item C<timeout>
I<(v.0.0.8)>
Required.
I've believed, that could stay hardcoded.
I was wrong.
L<File::AptFetch/_read()> has more.
=back
=cut
$builder->config_data( timeout => 120 );
$builder->recursive_test_files( 1 );
$builder->create_build_script( );
HideShow 85 lines of Pod
=head1 TEST-SUITE
Two things should be tested in regard with B<F::AF>:
=over
=item methods and structures
I wouldn't say I'm happy with this part (F<t/void/*.t>).
It's mostly a crash-type testing.
And a problem here is that I'm not completely sure what an input (from methods
side) here could be.
=item APT methods itself
Only local methods are tested.
And I<cdrom> method, among them, is no way touched.
Remote methods are missing from the test-suite.
This problem is easily fixable -- some kind Perlist could upload on CPAN some
modules, in B<Test> namespace, what would provide fake servers of
http://, ftp://, rsh:// etc protocols.
Anyone?
=back
And one note.
B<F::AF> is absolutely useles outside APT based world
(I'm not about F<*.deb>, I'm about APT).
Then F<t/file/*.t> and F<t/copy/*.t> skip completely.
Meanwhile F<t/void/*.t> enables some cute workaround, that would provide
all needed C<apt-config(1)> functionality without that executable itself.
(Just in case on that platform there will be Debian some day.)
But we still stay within POSIX world -- no future outside.
=head1 AVAILABILITY
=over
=item pure distribution
<http://search.cpan.org/dist/File-AptFetch/>
=item and debianization stuff too
# TODO
=item subversion (root)
# TODO
=back
=head1 BUGS
=over
=item please report here
<http://rt.cpan.org/Public/Dist/Display.html?Name=File-AptFetch/>
=item please don't report there
# TODO
=back
=head1 COPYRIGHT AND LICENSING
=over
=item *
Copyright 2009, 2010, 2014 by Eric Pozharski <whynot@cpan.org>
=item *
AS-IS, NO-WARRANTY, HOPE-TO-BE-USEFUL
=item *
GNU Lesser General Public License v3
<http://www.gnu.org/licenses/lgpl.txt>
=back