#!/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;
