[svn:parrot] r44937 - branches/ops_pct/compilers/opsc/src/Ops
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Mon Mar 15 14:31:03 UTC 2010
Author: mikehh
Date: Mon Mar 15 14:31:02 2010
New Revision: 44937
URL: https://trac.parrot.org/parrot/changeset/44937
Log:
fix File.pm to pass pod_syntax.t
Modified:
branches/ops_pct/compilers/opsc/src/Ops/File.pm
Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm Mon Mar 15 14:15:36 2010 (r44936)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm Mon Mar 15 14:31:02 2010 (r44937)
@@ -4,8 +4,6 @@
# XXX Better to put this into docs/ somewhere.
-=begin
-
=head1 NAME
Ops::File - Ops To C Code Generation
@@ -163,14 +161,12 @@
=over 4
-=end
+=cut
class Ops::File is Hash;
pir::load_bytecode('config.pbc');
-=begin
-
=item C<new(@files)>
Returns a new instance initialized by calling C<read_ops()> on each of
@@ -181,7 +177,7 @@
Returns a new instance initialized by compiling C<$str> as the contents of an
ops file.
-=end
+=cut
method new(*@files, :$oplib!, :$nolines) {
self<files> := @files;
@@ -211,8 +207,6 @@
}
-=begin
-
=back
=head2 Instance Methods
@@ -223,7 +217,7 @@
Reads in the specified .ops file, gathering information about the ops.
-=end
+=cut
method read_ops($file, $nolines) {
$Ops::Compiler::Actions::OPLIB := self<oplib>;
@@ -276,8 +270,6 @@
self<version> := @bits;
}
-=begin
-
=back
=head1 SEE ALSO
@@ -296,7 +288,7 @@
=back
-=end
+=cut
# Local Variables:
# mode: cperl
More information about the parrot-commits
mailing list