dancer::fileutils(3pm) [debian man page]

Dancer::FileUtils(3pm)					User Contributed Perl Documentation				    Dancer::FileUtils(3pm)

NAME

       Dancer::FileUtils - helper providing file utilities

SYNOPSIS

	   use Dancer::FileUtils qw/dirname path/;

	   # for 'path/to/file'
	   my $dir  = dirname($path); # returns 'path/to'
	   my $path = path($path);    # returns '/abs/path/to/file'

	   use Dancer::FileUtils qw/path read_file_content/;

	   my $content = read_file_content( path( 'folder', 'folder', 'file' ) );
	   my @content = read_file_content( path( 'folder', 'folder', 'file' ) );

	   use Dancer::FileUtils qw/read_glob_content set_file_mode/;

	   open my $fh, '<', $file or die "$!
";
	   set_file_mode($fh);
	   my @content = read_file_content($fh);
	   my $content = read_file_content($fh);

DESCRIPTION

       Dancer::FileUtils includes a few file related utilities related that Dancer uses internally. Developers may use it instead of writing their
       own file reading subroutines or using additional modules.

SUBROUTINES
/METHODS
   dirname
	   use Dancer::FileUtils 'dirname';

	   my $dir = dirname($path);

       Exposes File::Basename's dirname, to allow fetching a directory name from a path. On most OS, returns all but last level of file path. See
       File::Basename for details.

   open_file
	   use Dancer::FileUtils 'open_file';
	   my $fh = open_file('<', $file) or die $message;

       Calls open and returns a filehandle. Takes in account the 'charset' setting from Dancer's configuration to open the file in the proper
       encoding (or defaults to utf-8 if setting not present).

   path
	   use Dancer::FileUtils 'path';

	   my $path = path( 'folder', 'folder', 'filename');

       Provides comfortable path resolving, internally using File::Spec.

   read_file_content
	   use Dancer::FileUtils 'read_file_content';

	   my @content = read_file_content($file);
	   my $content = read_file_content($file);

       Returns either the content of a file (whose filename is the input), undef if the file could not be opened.

       In array context it returns each line (as defined by $/) as a separate element; in scalar context returns the entire contents of the file.

   read_glob_content
	   use Dancer::FileUtils 'read_glob_content';

	   open my $fh, '<', $file or die "$!
";
	   my @content = read_glob_content($fh);
	   my $content = read_glob_content($fh);

       Same as read_file_content, only it accepts a file handle. Returns the content and closes the file handle.

   set_file_mode
	   use Dancer::FileUtils 'set_file_mode';

	   set_file_mode($fh);

       Applies charset setting from Dancer's configuration. Defaults to utf-8 if no charset setting.

EXPORT

       Nothing by default. You can provide a list of subroutines to import.

AUTHOR

       Alexis Sukrieh

LICENSE AND COPYRIGHT

       Copyright 2009-2011 Alexis Sukrieh.

       This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as
       published by the Free Software Foundation; or the Artistic License.

       See http://dev.perl.org/licenses/ for more information.

perl v5.14.2							    2012-01-27						    Dancer::FileUtils(3pm)

Dancer::Response(3pm)					User Contributed Perl Documentation				     Dancer::Response(3pm)

NAME

       Dancer::Response - Response object for Dancer

SYNOPSIS

	   # create a new response object
	   Dancer::Response->new(
	       status => 200,
	       content => 'this is my content'
	   );

	   Dancer::SharedData->response->status; # 200

	   # fetch current response object
	   my $response = Dancer::SharedData->response;

	   # fetch the current status
	   $response->status; # 200

	   # change the status
	   $response->status(500);

PUBLIC API

   new
	   Dancer::Response->new(
	       status  => 200,
	       content => 'my content',
	       headers => HTTP::Headers->new(...),
	   );

       create and return a new Dancer::Response object

   current
	   my $response = Dancer::SharedData->response->current();

       return the current Dancer::Response object, and reset the object

   exists
	   if ($response->exists) {
	       ...
	   }

       test if the Dancer::Response object exists

   content
	   # get the content
	   my $content = $response->content;
	   my $content = Dancer::SharedData->response->content;

	   # set the content
	   $response->content('my new content');
	   Dancer::SharedData->response->content('my new content');

       set or get the content of the current response object

   status
	   # get the status
	   my $status = $response->status;
	   my $status = Dancer::SharedData->response->status;

	   # set the status
	   $response->status(201);
	   Dancer::SharedData->response->status(201);

       set or get the status of the current response object

   content_type
	   # get the status
	   my $ct = $response->content_type;
	   my $ct = Dancer::SharedData->response->content_type;

	   # set the status
	   $response->content_type('application/json');
	   Dancer::SharedData->response->content_type('application/json');

       set or get the status of the current response object

   pass
	   $response->pass;
	   Dancer::SharedData->response->pass;

       set the pass value to one for this response

   has_passed
	   if ($response->has_passed) {
	       ...
	   }

	   if (Dancer::SharedData->response->has_passed) {
	       ...
	   }

       test if the pass value is set to true

   halt
	   Dancer::SharedData->response->halt();
	   $response->halt;

   halted
	   if (Dancer::SharedData->response->halted) {
	      ...
	   }

	   if ($response->halted) {
	       ...
	   }

   header
	   # set the header
	   $response->header('X-Foo' => 'bar');
	   Dancer::SharedData->response->header('X-Foo' => 'bar');

	   # get the header
	   my $header = $response->header('X-Foo');
	   my $header = Dancer::SharedData->response->header('X-Foo');

       get or set the value of a header

   headers
	   $response->headers(HTTP::Headers->new(...));
	   Dancer::SharedData->response->headers(HTTP::Headers->new(...));

       return the list of headers for the current response

   headers_to_array
	   my $headers_psgi = $response->headers_to_array();
	   my $headers_psgi = Dancer::SharedData->response->headers_to_array();

       this method is called before returning a PSGI response. It transforms the list of headers to an array reference.

perl v5.14.2							    2012-01-28						     Dancer::Response(3pm)