package Common::DB::Diff::Replica;

use strict;
use warnings;

use base 'Common::DB::Diff';

sub schema_match {
    my $self     = shift;
    my $primary  = shift;
    my $is_match = 1;

    my $primary_cols = $primary->columns;
    my $replica_cols = $self->columns;

    my $primary_cnt = scalar @{$primary_cols};
    my $replica_cnt = scalar @{$replica_cols};

    $is_match = 0 if $replica_cnt != $primary_cnt;

    if ($is_match) {
        ## assumes primary is correct - why wouldn't it!!
        for ( my $i = 0 ; $i < $primary_cnt ; $i++ ) {
            if ( $replica_cols->[$i] ne $primary_cols->[$i] ) {
                $is_match = 0;
                last;
            }
        }
    }
    $is_match;

}

1;