OpenFrame::Argument::Blob - handling for filehandle-style data in network requests

OpenFrame documentation Contained in the OpenFrame distribution.

Index

Code Index:

NAME

Top

OpenFrame::Argument::Blob - handling for filehandle-style data in network requests

SYNOPSIS

Top

  use OpenFrame::Argument::Blob;

  my $blob = OpenFrame::Argument::Blob->new();

  $blob->filename( 'somefilename.dat' );
  $blob->filehandle( $fh );

  my $filename   = $blob->filename; 
  my $filehandle = $blob->filehandle;

DESCRIPTION

Top

OpenFrame::Argument::Blob is a class to support things such as browser-based uploads. It provides a mechanisms to get the filehandle and filename of the uploaded element.

METHODS

Top

filename( [ SCALAR ] )

The filename() method gets/sets the value of the filename attribute of the class. This should return the filename of the uploaded data.

filehandle( [ IO::Handle ] )

The filehandle method gets/sets the value of the filehandle that points to the uploaded data.

INHERITANCE

Top

OpenFrame::Argument::Blob inherits from the OpenFrame::Object class and provides all methods that its super class does.

AUTHOR

Top

James A. Duncan <jduncan@fotango.com>

COPYRIGHT

Top

Copyright 2002 Fotango Ltd. All Rights Reserved.

This code is released under the GNU GPL and Artistic licenses.

OpenFrame documentation Contained in the OpenFrame distribution. 
package OpenFrame::Argument::Blob;

use strict;
use warnings::register;

use IO::Null;
use OpenFrame::Object;
use base qw ( OpenFrame::Object );

our $VERSION=3.05;

sub init {
  my $self = shift;

  $self->name( '' );                     ## initialize the argument name
  $self->filename( '' );                 ## initialize the filename
  $self->filehandle( IO::Null->new() );  ## initialize the filehandle

  $self->SUPER::init(@_);
}

sub name {
  my $self = shift;
  my $name = shift;
  if (defined($name)) {
    $self->{name} = $name;
    return $self;
  } else {
    return $self->{name};
  }
}

sub filename {
  my $self = shift;
  my $file = shift;
  if (defined($file)) {
    $self->{filename} = $file;
    return $self;
  } else {
    return $self->{filename};
  }
}

sub filehandle {
  my $self = shift;
  my $fh   = shift;
  if (defined($fh)) {
    $self->{filehandle} = $fh;
    return $self;
  } else {
    return $self->{filehandle};
  }
}

sub STORABLE_freeze {
  my $self = shift;
  $self->filehandle('');
}

sub STORABLE_thaw {

}

1;