view release on metacpan or  search on metacpan

cowsay  view on Meta::CPAN

	opendir(COWDIR, $d) || die "$0: Cannot open $d\n";
	for my $file (readdir COWDIR) {
	    if ($file =~ s/\.cow$//) {
		print $file, "\n";
	    }
	}
	closedir(COWDIR);
    }
    print "Cow files installed as modules:\n";
    for my $d (@INC) {
	my @files = glob("$d/Acme/Cow/*.pm");
	for my $file (@files) {
	    next if (basename($file) eq "TextBalloon.pm");
	    print basename($file, ".pm"), "\n";
	}
    }
    exit(0);
}

sub slurp_input 
{

cowthink  view on Meta::CPAN

	opendir(COWDIR, $d) || die "$0: Cannot open $d\n";
	for my $file (readdir COWDIR) {
	    if ($file =~ s/\.cow$//) {
		print $file, "\n";
	    }
	}
	closedir(COWDIR);
    }
    print "Cow files installed as modules:\n";
    for my $d (@INC) {
	my @files = glob("$d/Acme/Cow/*.pm");
	for my $file (@files) {
	    next if (basename($file) eq "TextBalloon.pm");
	    print basename($file, ".pm"), "\n";
	}
    }
    exit(0);
}

sub slurp_input 
{