diff -r 0d30ea853889 -r 05c025e89571 lib/Debian/Pool.pm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/Debian/Pool.pm Fri Mar 06 00:43:13 2009 +0100 @@ -0,0 +1,26 @@ +package Debian::Pool; + +use strict; +use warnings; +use Carp; + +sub new { + my $class = ref $_[0] ? ref shift : shift; + my $self = {}; + + my %args = @_; + + $self->{archs} = @{$args->{archs}}; + $self->{root} = $args->{root}; + + bless $self, $class; +} + +sub getRoot { $_[0]->{root} } +sub getArchs { $_[0]->{archs} } +sub getBinArchs { grep !/^source$/, $_[0]->{archs} } +sub getSrcArchs { grep /^source$/, $_[0]->{archs} } + +1; + +# vim:sts=4 sw=4 aw ai sm: