view release on metacpan or  search on metacpan

bin/mergecal  view on Meta::CPAN

use Getopt::Long;
use File::Basename;
use App::MergeCal;

GetOptions(
  'help' => \my $help,
);

if ($help) {
  my $me = basename $0;
    say "\n$me, version $App::MergeCal::VERSION\n\n",
        "Usage: $me [config.json]\n";
    exit;
}

my $app = App::MergeCal->new_from_json_file(shift || 'config.json');

$app->run;

=head1 AUTHOR

lib/App/MergeCal.pm  view on Meta::CPAN

      objects => $objects,
    };

    my $out_fh;
    if ($output) {
      open $out_fh, '>', $output
        or die "Cannot open output file [$output]: $!\n";
      select $out_fh;
    }

    say "$_\r" for Text::vFile::asData->generate_lines($combined);
  }

=head2 $app->clean_calendars

Ensure that all of the calendars are URIs. If a calendar doesn't have a scheme
then it is assumed to be a file URI.

=cut

  method clean_calendars {