use Perl6::Slurp;
use RepoUtils;
use File::Basename;
+use Parson;
+
+# find our tarball
+my $json_object = Parson->new(); # parse json file
+my $dsc = $json_object->parse_json();
+
my $tarball = $ARGV[0]; # Orignal tarball
my $repo = RepoUtils->new();
}
$package_name =~ tr/_/-/; # translate underscore into dash
$package_name =~ s/-[\d]$//; # trim package version
-$package_name =~ s/-.?maemo.$//; # trim package version
+$package_name =~ s/-.?maemo.$//; # trim maemo version
chdir("lab/"); # We're in /lab now!
$tar->extract(); # extracted tarball now in lab/