    my $self = shift;
    my $fn = $self->[FILENAME];
    my $fh = $self->[FILEHANDLE];

    if ($fh) {
        seek $fh, 0, SEEK_END;
        return tell($fh)- $self->[STARTPOS];
    } elsif ($fn) {
        return (-s $fn) - $self->[STARTPOS];
    } else {
        return length($self->[BUFFER]);
    }

NAME

Data::TemporaryBag - Handle long size data using temporary file .

SYNOPSIS

  use Data::TemporaryBag;

  $data = Data::TemporaryBag->new;
  # add long string
  $data->add('ABC' x 1000);
  # You can use an overridden operator
  $data .= 'DEF' x 1000;
  ...
  $substr = $data->substr(2997, 6);  # ABCDEF

DESCRIPTION

Data::TemporaryBag module provides a bag object class handling long size data. The short size data are kept on memory. When the data size becomes over $Threshold size, they are saved into a temporary file internally.

METHOD

Data::TemporaryBag->new( [$data] ): Creates a bag object.
$bag->clear: Clears $bag.
$bag->add( $data ): Adds $data to $bag. You can use an assignment operator '.=' instead.
$bag->substr( $offset, $length, $replace ): Extracts a substring out of $bag. It behaves similar to CORE::substr except that it can't be an lvalue.
$bag->clone: Creates a clone of $bag.
$bag->value: Gets data of $bag as a string. It is possible that the string is extremely long.
$bag->length: Gets length of data.
$bag->defined: Returns if the data in $bag are defined or not.
$bag->is_saved: Returns the file name if $bag is saved in a temporary file.

GLOBAL VARIABLES

$Data::TemporaryBag::Threshold: The threshold of the data size in kilobytes whether saved into file or not. Default is 10.
$data::TemporaryBag::MaxOpen: The maximum number of the opened temporary files. Default is 10.

COPYRIGHT

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