view release on metacpan or  search on metacpan

lib/Padre/DB/SessionFile.pm  view on Meta::CPAN

package Padre::DB::SessionFile;

# NOTE: This class is loaded automatically by Padre::DB, overlaying the
# code already auto-generated by Padre::DB. Do not load manually, as this
# module will not function standalone.

use 5.008;
use strict;
use warnings;
use Padre::Constant ();

our $VERSION = '1.02';





######################################################################
# Portability Support

if (Padre::Constant::PORTABLE) {
	require Padre::Portable;

	*new = sub {
		my $class = shift;
		my %param = @_;
		$param{file} = Padre::Portable::freeze( $param{file} );
		$class->SUPER::new(%param);
		}
		if __PACKAGE__->can('new');

	*file = sub {
		Padre::Portable::thaw( shift->SUPER::file(@_) );
		}
		if __PACKAGE__->can('file');

	*set = sub {
		my $self  = shift;
		my $name  = shift;
		my $value = shift;
		if ( $name and $name eq 'file' ) {
			$value = Padre::Portable::freeze($value);
		}
		$self->SUPER::set( $name => $value );
		}
		if __PACKAGE__->can('set');

}

1;

__END__

=pod

=head1 NAME

Padre::DB::SessionFile - Padre::DB class for the session_file table

=head1 SYNOPSIS

  my @files = Padre::DB::SessionFile->select(
      'where session = ?', $session_id,