Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add an utility

  • Loading branch information...
commit 2e051c3d2053c1e648fea58d0c1f49a1fd8fddb6 1 parent 5d60a4c
@gfx authored
Showing with 15 additions and 0 deletions.
  1. +15 −0 author/ppcode.pl
View
15 author/ppcode.pl
@@ -0,0 +1,15 @@
+#!perl -w
+
+use strict;
+use Acme::Perl::VM qw(@PL_ppaddr);
+
+my $implemented = 0;
+for(my $i = 0; $i < @PL_ppaddr; $i++){
+ my $ok = B::svref_2object($PL_ppaddr[$i])->GV->NAME ne '__ANON__';
+ print $ok ? '* ' : ' ', B::ppname($i), "\n";
+ $implemented++ if $ok;
+}
+
+printf "PPCODE %d/%d (%d%%)\n",
+ $implemented, scalar @PL_ppaddr,
+ ($implemented / scalar @PL_ppaddr)*100;

0 comments on commit 2e051c3

Please sign in to comment.
Something went wrong with that request. Please try again.