#!/usr/bin/perl -w use strict; use TLSRC; my $tlsrc = new TLSRC; $tlsrc->from_file("tlsrc/bar.tlsrc"); $tlsrc->writeout(); my $tl = TLSRC->new( 'name' => "foobar", 'shortdesc' => "The foobar packages", 'catalogue' => "foobarcatalogue", 'depends' => [ 1, 2, 3 ] ); $tl->writeout(\*STDERR);