# # ChrootInfo.pm: chroot utility library for sbuild # Copyright © 2005-2009 Roger Leigh # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see # . # ####################################################################### package Sbuild::ChrootInfoAutopkgtest; use Sbuild::ChrootInfo; use Sbuild::ChrootAutopkgtest; use strict; use warnings; BEGIN { use Exporter (); our (@ISA, @EXPORT); @ISA = qw(Exporter Sbuild::ChrootInfo); @EXPORT = qw(); } sub new { my $class = shift; my $conf = shift; my $self = $class->SUPER::new($conf); bless($self, $class); return $self; } sub get_info_all { my $self = shift; my $chroots = {}; $self->set('Chroots', $chroots); } sub _create { my $self = shift; my $chroot_id = shift; my $chroot = undef; $chroot = Sbuild::ChrootAutopkgtest->new($self->get('Config'), $chroot_id); return $chroot; } 1;