Move a more functions to Parrot::Pmc2c::UtilFunctions.

lib/Parrot/Pmc2c/PCCMETHOD.pm

@@ -5,6 +5,7 @@ use strict;
 use warnings;
 use Carp qw(longmess croak);
 use Parrot::Pmc2c::PCCMETHOD_BITS;
+use Parrot::Pmc2c::UtilFunctions qw( trim );
 
 =head1 NAME
 
@@ -96,28 +97,6 @@ our $reg_type_info = {
                       at => PARROT_ARG_PMC, },
 };
 
-# Perl trim function to remove whitespace from the start and end of the string
-sub trim {
-    my $string = shift;
-    $string    =~ s/^\s+//;
-    $string    =~ s/\s+$//;
-    return $string;
-}
-
-# Left trim function to remove leading whitespace
-sub ltrim {
-    my $string = shift;
-    $string    =~ s/^\s+//;
-    return $string;
-}
-
-# Right trim function to remove trailing whitespace
-sub rtrim {
-    my $string = shift;
-    $string    =~ s/\s+$//;
-    return $string;
-}
-
 =head3 C<parse_adverb_attributes>
 
   builds and returs an adverb hash from an adverb string such as

lib/Parrot/Pmc2c/UtilFunctions.pm

@@ -12,6 +12,7 @@ our @EXPORT_OK = qw( count_newlines return_statement dont_edit dynext_load_code
     args_from_parameter_list
     passable_args_from_parameter_list
     gen_multi_name
+    trim ltrim rtrim
 );
 
 =head1 NAME
@@ -308,6 +309,28 @@ sub gen_multi_name {
     return $cache->{$name} = "mfl_$count";
 }
 
+# Perl trim function to remove whitespace from the start and end of the string
+sub trim {
+    my $string = shift;
+    $string    =~ s/^\s+//;
+    $string    =~ s/\s+$//;
+    return $string;
+}
+
+# Left trim function to remove leading whitespace
+sub ltrim {
+    my $string = shift;
+    $string    =~ s/^\s+//;
+    return $string;
+}
+
+# Right trim function to remove trailing whitespace
+sub rtrim {
+    my $string = shift;
+    $string    =~ s/\s+$//;
+    return $string;
+}
+
 1;
 
 # Local Variables: