Provided by: padre_0.90.ds1-1_all bug


       Padre::Util - Padre non-Wx Utility Functions


       The "Padre::Util" package is a internal storage area for miscellaneous functions that
       aren't really Padre-specific that we want to throw somewhere convenient so they won't clog
       up task-specific packages.

       All functions are exportable and documented for maintenance purposes, but except for in
       the Padre core distribution you are discouraged in the strongest possible terms from using
       these functions, as they may be moved, removed or changed at any time without notice.


           my $content = Padre::Util::slurp( $file );
           if ( $content ) {
               print $$content;
           } else {
               # Handle errors appropriately

       This is a simple slurp implementation, provided as a convenience for internal Padre use
       when loading trivial unimportant files for which we don't need anything more robust.

       All file reading is done with "binmode" enabled, and data is returned by reference to
       avoid needless copying.

       Returns the content of the file as a SCALAR reference if the file exists and can be read.

       Returns false if loading of the file failed.

       This function is only expected to be used in situations where the file should almost
       always exist, and thus the reason why reading the file failed isn't really important.

           my $type = Padre::Util::newline_type( $string );

       Returns "None" if there was not "CR" or "LF" in the file.

       Returns "UNIX", "Mac" or "Windows" if only the appropriate newlines were found.

       Returns "Mixed" if line endings are mixed.

           my $version = Padre::Util::parse_variable($file, 'VERSION');

       Parse a $file and return what $VERSION (or some other variable) is set to by the first

       It will return the string "undef" if it can't figure out what $VERSION is. $VERSION should
       be for all to see, so "our $VERSION" or plain $VERSION are okay, but "my $VERSION" is not.

       "parse_variable()" will try to "use version" before checking for $VERSION so the following
       will work.

           $VERSION = qv(1.2.3);

       Originally based on "parse_version" from ExtUtils::MakeMaker.


       ·   The text in which we need to search

       ·   The regular expression

       ·   The offset within the text where we the last match started so the next forward match
           must start after this.

       ·   The offset within the text where we the last match ended so the next backward match
           must end before this.

       ·   backward bit (1 = search backward, 0 = search forward) - Optional. Defaults to 0.

       The "_T" function is used for strings that you do not want to translate immediately, but
       you will be translating later (multiple times).

       The only reason this function needs to exist at all is so that the translation tools can
       identify the string it refers to as something that needs to be translated.

       Functionally, this function is just a direct pass-through with no effect.

       If called without a parameter returns the share directory of Padre.  If called with a
       parameter (e.g. "Perl6") returns the share directory of Padre::Plugin::Perl6. Uses
       File::ShareDir inside.


       Copyright 2008-2011 The Padre development team as listed in

       This program is free software; you can redistribute it and/or modify it under the same
       terms as Perl itself.

       The full text of the license can be found in the LICENSE file included with this module.