NAME

   Reprepro::Uploaders - Emulates reprepro's upload permissions

SYNOPSIS

   use Reprepro::Uploaders;

   # Initialize
   my $uploaders = Reprepro::Uploaders->new(
      uploaders   => "/etc/reprepro/uploaders",  # Mandatory, no default
      verbose     => 1,                          # Or debug for more messages
      augeas_opts => {                           # Setup Config::Augeas
         root     => "/var/lib/fakeroot",
      },
   );

   my %package = (
      source         => 'libfoo-bar-perl',
      binaries       => [ 'libfoo-bar-perl' ],
      key            => 'ABCD1234',
      architectures  => [ 'source' ],
      sections       => [ 'main/perl' ],
   );

   print "Package accepted".$/ if ($uploaders->check_package(\%package));

SEE ALSO

Config::Augeas