File Coverage

blib/lib/DBIx/Class/Schema/Diff/State.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package DBIx::Class::Schema::Diff::State;
use strict;
use warnings;

# ABSTRACT: Diff object of a single schema

use Moo;
extends 'DBIx::Class::Schema::Diff';
#with 'DBIx::Class::Schema::Diff::Role::Common';

require DBIx::Class::Schema::Diff::Schema;

use Types::Standard qw(:all);

has 'schema', is => 'ro', isa => Maybe[Str], default => sub { undef };

has '_schema_diff', required => 1, is => 'ro', isa => InstanceOf['DBIx::Class::Schema::Diff::Schema'];

around BUILDARGS => sub {
  my ($orig, $self, @args) = @_;
  my %opt = (ref($args[0]) eq 'HASH') ? %{ $args[0] } : @args; # <-- arg as hash or hashref

  die "Must supply single 'schema' not old_schema and new_schema" if ($opt{new_schema} || $opt{old_schema});

  unless($opt{_schema_diff}) {
    my $schema = $opt{schema} or die "schema argument required";
    $opt{_schema_diff} = DBIx::Class::Schema::Diff::Schema->new(
      new_schema => $schema,
      old_schema => $schema,
      new_schema_only => 1
    )
  }

  return  $self->$orig(%opt)
};



1;


__END__