/usr/bin/umegaya-guess-url is in umegaya 1.0.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #!/usr/bin/perl
use strict;
use warnings;
use 5.10.0;
use Umegaya;
my $package_url = shift;
unless (defined($package_url)) {
die "Usage: umegaya-guess-url Vcs-URL\n";
}
my $url = Umegaya->new(url => $package_url);
unless (defined($url->guess_package)) {
die "Could not detect package name for $package_url\n";
}
say $url->guess_package;
|