#!/usr/bin/env perl

# Copyright (c) 2013-2020 by Martin Becker, Blaubeuren.
# This script is free software; you can redistribute it and/or modify it
# under the terms of the Artistic License 2.0 (see the LICENSE file).

use strict;
use warnings;

my $MAKEFILE_PL  = 'Makefile.PL';

open my $mf, '<', $MAKEFILE_PL  or die "$MAKEFILE_PL: cannot open: $!\n";
while (<$mf>) {
    if (/^(?:requires|recommends)\s+'([\w\:]+)'\s*=>/) {
        print "$1\n";
    }
}
close $mf;

__END__
