1 package Debian::Pool;

     2 

     3 use strict;

     4 use warnings;

     5 use Carp;

     6 

     7 sub new {

     8     my $class = ref $_[0] ? ref shift : shift;

     9     my $self = {};

    10 

    11     my %args = @_;

    12 

    13     $self->{archs} = @{$args->{archs}};

    14     $self->{root} = $args->{root};

    15 

    16     bless $self, $class;

    17 }

    18 

    19 sub getRoot { $_[0]->{root} }

    20 sub getArchs { $_[0]->{archs} }

    21 sub getBinArchs { grep !/^source$/, $_[0]->{archs} }

    22 sub getSrcArchs { grep /^source$/, $_[0]->{archs} }

    23 

    24 1;

    25 

    26 # vim:sts=4 sw=4 aw ai sm: