#!/usr/bin/perl
use strict;
use warnings;

#use lib '.';
use Pod::Functions qw(%Type %Flavor);

foreach my $kk (keys(%Type)) {

my $desc = "$Type{$kk}: $Flavor{$kk}";
my $zpt =  "";

if ($kk ~~  [qr/import/,qr/local/,qr/\//,qr/\-X/]) {
	$zpt = "";
#	print "bad $kk \n";
} else {

$zpt =  prototype "CORE::$kk";

}

if (! defined($zpt)) {
	$zpt = "";	
}
# snippet template
my $zsnip = <<EOF;
snippet $kk "$desc" b
$kk $zpt
endsnippet
EOF

print $zsnip,"\n";
}

=begin
	Use inbuilt function list found in Pod::Functions to write corresponding snippets, compatible with Ultisnips.
	Save the output as perl.snippets, then copy to your home or your ultisnips directory defined in coc-settings.json'
	These snippets are used for vim/nvim snippet support.

=Author
	prymar56@gmail.com


=cut