#!/usr/bin/perl
use strict;
use warnings;

use Xyne::Arch::PKGBUILD qw/parse_pkgbuild/;

use Xyne::Common::Functions qw/str/;
use Xyne::Common::JSON qw/obj_to_json/;

foreach my $pkgbuild (@ARGV)
{
  foreach my $o (&parse_pkgbuild($pkgbuild))
  {
    print &str($o,1);
    #print &obj_to_json($o,1);
    print "\n\n";
  }
}
#print &obj_to_json(&parse_pkgbuild(@ARGV),1);


