<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/DBD/Mock/Session.pm</h2><form method='post'><textarea name='content' class='file-edit'>package DBD::Mock::Session;

use strict;
use warnings;

my $INSTANCE_COUNT = 1;

# - Class - #

sub new {
    my $class = shift;
    my $name = ref( $_[0] ) ? &quot;Session $INSTANCE_COUNT&quot; : shift;
    $INSTANCE_COUNT++;

    $class-&gt;_verify_states( $name, @_ );

    bless {
        name        =&gt; $name,
        states      =&gt; \@_,
        state_index =&gt; 0
    }, $class;
}

sub _verify_state {
    my ( $class, $state, $index, $name ) = @_;

    die &quot;You must specify session states as HASH refs&quot;
      if ref($state) ne 'HASH';

    die &quot;Bad state '$index' in DBD::Mock::Session ($name)&quot;
      if not exists $state-&gt;{statement}
          or not exists $state-&gt;{results};

    my $stmt = $state-&gt;{statement};
    my $ref  = ref $stmt;

    die &quot;Bad 'statement' value '$stmt' in DBD::Mock::Session ($name)&quot;,
      if ref($stmt) ne ''
          and $ref ne 'CODE'
          and $ref ne 'Regexp';
}

sub _verify_states {
    my ( $class, $name, @states ) = @_;

    die &quot;You must specify at least one session state&quot;
      if scalar @states == 0;

    for ( 0 .. scalar @states - 1 ) {
        $class-&gt;_verify_state( $states[$_], $_, $name );
    }
}

# - Instance - #

sub name {
    my $self = shift;
    $self-&gt;{name};
}

sub reset {
    my $self = shift;
    $self-&gt;{state_index} = 0;
}

sub current_state {
    my $self = shift;
    my $idx  = $self-&gt;{state_index};
    return $self-&gt;{states}[$idx];
}

sub has_states_left {
    my $self = shift;
    return $self-&gt;{state_index} &lt; $self-&gt;_num_states;
}

sub verify_statement {
    my ( $self, $got ) = @_;

    unless ( $self-&gt;has_states_left ) {
        die &quot;Session states exhausted, only '&quot;
          . $self-&gt;_num_states
          . &quot;' in DBD::Mock::Session ($self-&gt;name})&quot;;
    }

    my $state    = $self-&gt;current_state;
    my $expected = $state-&gt;{statement};
    my $ref      = ref($expected);

    if ( $ref eq 'Regexp' and $got !~ /$expected/ ) {
        die &quot;Statement does not match current state (with Regexp) in &quot;
          . &quot;DBD::Mock::Session ($self-&gt;{name})\n&quot;
          . &quot;      got: $got\n&quot;
          . &quot; expected: $expected&quot;,

    }

    if ( $ref eq 'CODE' and not $expected-&gt;( $got, $state ) ) {
        die &quot;Statement does not match current state (with CODE ref) in &quot;
          . &quot;DBD::Mock::Session ($self-&gt;{name})&quot;;
    }

    if ( not $ref and $got ne $expected ) {
        die &quot;Statement does not match current state in &quot;
          . &quot;DBD::Mock::Session ($self-&gt;{name})\n&quot;
          . &quot;      got: $got\n&quot;
          . &quot; expected: $expected&quot;;
    }
}

sub results_for {
    my ( $self, $statment ) = @_;
    $self-&gt;_find_state_for($statment)-&gt;{results};
}

sub verify_bound_params {
    my ( $self, $params ) = @_;

    my $current_state = $self-&gt;current_state;
    if ( exists ${$current_state}{bound_params} ) {
        my $expected = $current_state-&gt;{bound_params};

        if ( scalar @$expected != scalar @$params ) {
            die &quot;Not the same number of bound params in current state in &quot;
              . &quot;DBD::Mock::Session ($self-&gt;{name})\n&quot;
              . &quot;      got: @{$params}&quot;
              . &quot; expected: @{$expected}&quot;;
        }

        for ( 0 .. scalar @{$params} - 1 ) {
            $self-&gt;_verify_bound_param( $params-&gt;[$_], $expected-&gt;[$_], $_ );
        }

    }

    # and make sure we go to
    # the next statement
    $self-&gt;{state_index}++;
}

sub _find_state_for {
    my ( $self, $statement ) = @_;

    foreach ( $self-&gt;_remaining_states ) {
        my $stmt = $_-&gt;{statement};
        my $ref  = ref($stmt);

        return $_ if ( $ref eq 'Regexp' and $statement =~ /$stmt/ );
        return $_ if ( $ref eq 'CODE' and $stmt-&gt;( $statement, $_ ) );
        return $_ if ( not $ref and $stmt eq $statement );
    }

    die &quot;Statement '$statement' not found in session ($self-&gt;{name})&quot;;
}

sub _num_states {
    my $self = shift;
    scalar @{ $self-&gt;{states} };
}

sub _remaining_states {
    my $self        = shift;
    my $start_index = $self-&gt;{state_index};
    my $end_index   = $self-&gt;_num_states - 1;
    @{ $self-&gt;{states} }[ $start_index .. $end_index ];
}

sub _verify_bound_param {
    my ( $self, $got, $expected, $index ) = @_;
    no warnings;

    my $ref = ref $expected;

    if ( $ref eq 'Regexp' ) {

        if ( $got !~ /$expected/ ) {
            die &quot;Bound param $index do not match (using regexp) &quot;
              . &quot;in current state in DBD::Mock::Session ($self-&gt;{name})&quot;
              . &quot;      got: $got\n&quot;
              . &quot; expected: $expected&quot;;
        }

    } elsif ( $got ne $expected ) {
        die &quot;Bound param $index do not match &quot;
          . &quot;in current state in DBD::Mock::Session ($self-&gt;{name})\n&quot;
          . &quot;     got: $got\n&quot;
          . &quot; expected: $expected&quot;;
    }
}

1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fcpanel-lib%2FDBD%2FMock'>Back to Directory</a>