1 package SQL::Translator::Role::Error;
4 has error => (is => 'rw', default => sub { '' });
7 my ($orig, $self) = (shift, shift);
9 # Emulate horrible Class::Base API
10 unless (ref ($self)) {
11 my $errref = do { no strict 'refs'; \${"${self}::_ERROR"} };
12 return $$errref unless @_;
17 return $self->$orig unless @_;