Lines 918-925
sub AUTOLOAD {
Link Here
|
918 |
return $self->_result()->get_column($method); |
918 |
return $self->_result()->get_column($method); |
919 |
} |
919 |
} |
920 |
}; |
920 |
}; |
921 |
no strict 'refs'; ## no critic (strict) |
921 |
# If called from child class as $self->SUPER-><accessor_name> |
922 |
*{$AUTOLOAD} = $accessor; |
922 |
# $AUTOLOAD will contain ::SUPER which breaks method lookup |
|
|
923 |
# therefore we cannot write those entries into the symbol table |
924 |
unless ( $AUTOLOAD =~ /::SUPER::/ ) { |
925 |
no strict 'refs'; ## no critic (strict) |
926 |
*{$AUTOLOAD} = $accessor; |
927 |
} |
923 |
return $accessor->( $self, @_ ); |
928 |
return $accessor->( $self, @_ ); |
924 |
} |
929 |
} |
925 |
|
930 |
|
926 |
- |
|
|