The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!/usr/bin/env perl
use strict;
use feature 'say';
my %opt;
GetOptions(\%opt, 'help', 'version');
if (keys %opt) {
my $me = basename $0;
if ($opt{version}) {
say "$me $App::LinkSite::VERSION";
say '' if $opt{help};
}
if ($opt{help}) {
say "Usage: $me";
say "\nCreate a link site from a simple input file. See 'man $me' for details";
}
exit;
}
App::LinkSite->new->run;
=head1 linksite
Create a link site from a simple input file.
This program parses a JSON file (called C<links.json>) and turns the data
into a link site (a bit like LinkTree).
For more information see https://linksite.davecross.co.uk/.
=cut