SQL::Statement::Placeholder - implements getting the next placeholder value

SQL-Statement documentation Contained in the SQL-Statement distribution.

Index

Code Index:

NAME

Top

SQL::Statement::Placeholder - implements getting the next placeholder value

SYNOPSIS

Top

  # create an placeholder term with an SQL::Statement object as owner
  # and the $argnum of the placeholder.
  my $term = SQL::Statement::Placeholder->new( $owner, $argnum );
  # access the result of that operation
  $term->value( $eval );

DESCRIPTION

Top

SQL::Statement::Placeholder implements getting the next placeholder value. Accessing a specific placeholder is currently unimplemented and not tested.

INHERITANCE

Top

  SQL::Statement::Placeholder
  ISA SQL::Statement::Term

METHODS

Top

new

Instantiates a new SQL::Statement::Placeholder instance.

value

Returns the value of the next placeholder.

AUTHOR AND COPYRIGHT

Top

Copyright (c) 2009,2010 by Jens Rehsack: rehsackATcpan.org

All rights reserved.

You may distribute this module under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.

SQL-Statement documentation Contained in the SQL-Statement distribution. 
package SQL::Statement::Placeholder;

use strict;
use warnings;

use vars qw(@ISA);
require Carp;

require SQL::Statement::Term;

our $VERSION = '1.33';

@ISA = qw(SQL::Statement::Term);


sub new
{
    my ( $class, $owner, $argnum ) = @_;

    my $self = $class->SUPER::new($owner);
    $self->{ARGNUM} = $argnum;

    return $self;
}

sub value($)
{

    # from S::S->get_row_value():
    #        my $val = (
    #                         $self->{join}
    #                      or !$eval
    #                      or ref($eval) =~ /Statement$/
    #                  ) ? $self->params($arg_num) : $eval->param($arg_num);

    # let's see where us will lead taking from params every time
    # XXX later: return $_[0]->{OWNER}->{params}->[$_[0]->{ARGNUM}];
    return $_[0]->{OWNER}->{params}->[ $_[0]->{OWNER}->{argnum}++ ];
}


1;