view release on metacpan or  search on metacpan

lib/DataCube/MeasureUpdater.pm  view on Meta::CPAN

    
    die   "DataCube::MeasureUpdater(new):\nmust pass a DataCube::Schema object to new\n$!\n"
    unless $schema && ref($schema) && ref($schema) =~ /^datacube::schema$/i;
    
    my $self = bless {}, ref($class) || $class;
    $self->{measures} = $schema->{measures};
    return $self;
}


sub update {
    my($self,%opts) = @_;

    my $source     = $opts{source};
    my $target     = $opts{target};
    my $source_key = $opts{source_key};
    my $target_key = $opts{target_key};

    #local $SIG{__WARN__} = sub {
    #    die '-' x 80 . "\n" .
    #        "DataCube::MeasureUpdater(update | warnings):\n".