#!/usr/bin/perl

use strict;
use warnings;

use Piny;

my ( $reponame, $attr, $value ) = @ARGV;

$attr =~ s/\./_/g;

my $repo = Piny::Repo->new( $reponame );

if ( defined $value ) {
  $repo->config->$attr( $value );
};

print "$attr = " . $repo->config->$attr . "\n";