I frequently find myself trying to replicate what bliako posts. I was able to get the expected result with the github values hard-coded into the script and taking the repo name off of STDIN. I then wanted to shuffle those values out of the source and load them using Config:Tiny, and take the new repo name off of STDIN. Right now I'm failing. Source:

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

# original by bliako on 27/05/2019 PM node_id=11100309
## embellishments don't work yet

use Net::GitHub;
use Data::Dumper;
use Config::Tiny;

my $ini_path = qw( /home/bob/Documents/html_template_data/3.values.ini
+ );
say "ini path is $ini_path";

my $sub_hash = "my_github";
my $Config   = Config::Tiny->new;
$Config = Config::Tiny->read( $ini_path, 'utf8' );
say Dumper $Config;

# -> is optional between brackets
my $github_login    = $Config->{$sub_hash}{'email'};
my $github_username = $Config->{$sub_hash}{'username'};
my $github_password = $Config->{$sub_hash}{'password'};

say "login is $github_login";
say "password is $github_password";

print "$0 : enter value for reponame: ";
my $github_reponame = <STDIN>;
chomp($github_reponame);

my $git = Net::GitHub->new(
  login => $github_username,
  pass  => $github_password
);

say "username is $github_username";

my $reposinfo = $git->repos->list($github_username);
print Dumper($reposinfo);

my %reposlist =
  map { lc $_->{'full_name'} =~ s|^${github_username}/||r => $_ } @$re
+posinfo;
print "Repos: " . join( ",", keys %reposlist ) . "\n";

if ( !defined $reposlist{ lc $github_reponame } ) {
  print "$0 : creating new repository '$github_reponame' ...\n";
  my $ret = undef;
  eval {
    $ret = $git->repos->create(
      {
        name        => $github_reponame,
        description => "change this to suit",
      }
    );
  };
  if ($@) {
    print STDERR "$0 : failed to create repository '$github_reponame' 
+: $@\n";
    exit(1);
  }
}

__END__
[download]

Output:

$ ./2.github.pl 
ini path is /home/bob/Documents/html_template_data/3.values.ini
$VAR1 = bless( {
...
                 'my_github' => {
                                  'password' => 'redacted',
                                  'email' => 'tblazer66@gmail.com',
                                  'user' => 'TBlazer66'
                                },
...
               }, 'Config::Tiny' );

login is tblazer66@gmail.com
password is redacted
./2.github.pl : enter value for reponame: 2.newrepo
Undef did not pass type constraint "Str" (in $args->{"login"}) at /usr
+/local/share/perl/5.26.1/Net/GitHub.pm line 10
    "Str" is a subtype of "Value"
    "Value" is a subtype of "Defined"
    Undef did not pass type constraint "Defined" (in $args->{"login"})
    "Defined" is defined as: (defined($_))
[download]

It seems like the problem is that I'm not getting values passed. I looked at line 10 of Github.pm is in the subroutine that wraps the arguments and sends them further:

$ cd /usr/local/share/perl/5.26.1/Net
$ cat GitHub.pm
package Net::GitHub;

use Net::GitHub::V3;

our $VERSION = '0.95';
our $AUTHORITY = 'cpan:FAYLAND';

sub new {
    my $class = shift;
    Net::GitHub::V3->new(@_);
}

1;

__END__
[download]

Question 1 is what gives with the values being undefined?

I spent a lot of time looking at ExtUtils::MakeMaker, and I'm wondering what the word "target" denotes. I had used it for the OS of the plaform you're developing for.

Thanks for your post, and thanks for your comments,

  my $github_username = $Config->{$sub_hash}{'username'};
...
say "username is $github_username";
[download]

and

                                  'user' => 'TBlazer66'
...
login is tblazer66@gmail.com
[download]

don't go together...
• key 'user' vs. 'username'
• say "username is ..." vs. "login is ..."

key 'user' vs. 'username' don't go together...

Du hast ein ganz genaues Auge, soonix, vielen Dank. I realize that I'm still nibbling at the edges of this topic, but sometimes I can't get going north and south until I get past some bonehead thing that someone else can better see. I removed the variable for login. For people like me who like to use Config::Tiny, this would be determined in the ini file.

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

# original by bliako on 27/05/2019 PM node_id=11100309
# values imported by Config::Tiny by Aldebaran
# repo_name supplied to STDIN

use Net::GitHub;
use Data::Dumper;
use Config::Tiny;

my $ini_path = qw( /home/bob/Documents/html_template_data/3.values.ini
+ );
say "ini path is $ini_path";
my $sub_hash = "my_github";
my $Config   = Config::Tiny->new;
$Config = Config::Tiny->read( $ini_path, 'utf8' );
say Dumper $Config;
my $user = $Config->{$sub_hash}{'username'};
my $pass = $Config->{$sub_hash}{'password'};
print "$0 : enter value for reponame: ";
my $repo_name = <STDIN>;
chomp($repo_name);

my $git = Net::GitHub->new(
  login => $user,
  pass  => $pass
);

say "username is $user";

my $reposinfo = $git->repos->list($user);
print Dumper($reposinfo);

my %reposlist =
  map { lc $_->{'full_name'} =~ s|^${user}/||r => $_ } @$reposinfo;
print "Repos: " . join( ",", keys %reposlist ) . "\n";

if ( !defined $reposlist{ lc $repo_name } ) {
  print "$0 : creating new repository '$repo_name' ...\n";
  my $ret = undef;
  eval {
    $ret = $git->repos->create(
      {
        name        => $repo_name,
        description => "change this to suit",
      }
    );
  };
  if ($@) {
    print STDERR "$0 : failed to create repository '$repo_name' : $@\n
+";
    exit(1);
  }
}

__END__
[download]

What is happening with this snippet?

my %reposlist =
  map { lc $_->{'full_name'} =~ s|^${user}/||r => $_ } @$reposinfo;
print "Repos: " . join( ",", keys %reposlist ) . "\n";
[download]

The output is pretty clear but rather verbose:

           'created_at' => '2019-02-26T07:24:14Z',
            'keys_url' => 'https://api.github.com/repos/TBlazer66/SSCC
+E/keys{/key_id}',
            'subscribers_url' => 'https://api.github.com/repos/TBlazer
+66/SSCCE/subscribers',
            'branches_url' => 'https://api.github.com/repos/TBlazer66/
+SSCCE/branches{/branch}',
            'releases_url' => 'https://api.github.com/repos/TBlazer66/
+SSCCE/releases{/id}',
[download]

Now I'm going to try to tackle the code in the original post....

A target is usually the name of a file that is generated by a program; examples of targets are executable or object files.

From ftp://ftp.gnu.org/old-gnu/Manuals/make-3.79.1/html_chapter/make_2.html

A phony target is one that is not really the name of a file; rather it is just a name for a recipe to be executed when you make an explicit request. 

From https://www.gnu.org/software/make/manual/html_node/Phony-Targets.html

So perhaps I should have used phony target.

Certainly people use and say target OS, but as there is only one real OS, that's a bit superfluous, a poetic construct so-to-speak.