my $cascade = $args{'cascade'};
if ( !exists $self->_tables->{$table_name} ) {
- return $self->error(qq[Can't drop table: $table_name" doesn't exist]);
+ return $self->error(qq[Can't drop table: "$table_name" doesn't exist]);
}
my $table = delete $self->_tables->{$table_name};
if ( !exists $self->_procedures->{$proc_name} ) {
return $self->error(
- qq[Can't drop procedure: $proc_name" doesn't exist]);
+ qq[Can't drop procedure: "$proc_name" doesn't exist]);
}
my $proc = delete $self->_procedures->{$proc_name};
if ( !exists $self->_triggers->{$trigger_name} ) {
return $self->error(
- qq[Can't drop trigger: $trigger_name" doesn't exist]);
+ qq[Can't drop trigger: "$trigger_name" doesn't exist]);
}
my $trigger = delete $self->_triggers->{$trigger_name};
}
if ( !exists $self->_views->{$view_name} ) {
- return $self->error(qq[Can't drop view: $view_name" doesn't exist]);
+ return $self->error(qq[Can't drop view: "$view_name" doesn't exist]);
}
my $view = delete $self->_views->{$view_name};
}
else {
$self->error('No procedures');
- return wantarray ? () : undef;
+ return;
}
}
}
else {
$self->error('No tables');
- return wantarray ? () : undef;
+ return;
}
}
my $self = shift;
my $trigger_name = shift or return $self->error('No trigger name');
- return $self->error(qq[Table "$trigger_name" does not exist])
+ return $self->error(qq[Trigger "$trigger_name" does not exist])
unless exists $self->_triggers->{$trigger_name};
return $self->_triggers->{$trigger_name};
}
}
else {
$self->error('No triggers');
- return wantarray ? () : undef;
+ return;
}
}
}
else {
$self->error('No views');
- return wantarray ? () : undef;
+ return;
}
}
=head2 make_natural_joins
-Creates foriegn key relationships among like-named fields in different
+Creates foreign key relationships among like-named fields in different
tables. Accepts the following arguments:
=over 4
=item * join_pk_only
-A True or False argument which determins whether or not to perform
+A True or False argument which determines whether or not to perform
the joins from primary keys to fields of the same name in other tables
=item * skip_fields