Lines 1067-1074
sub AUTOLOAD {
Link Here
|
1067 |
return $self->_result()->get_column($method); |
1067 |
return $self->_result()->get_column($method); |
1068 |
} |
1068 |
} |
1069 |
}; |
1069 |
}; |
1070 |
no strict 'refs'; ## no critic (strict) |
1070 |
# If called from child class as $self->SUPER-><accessor_name> |
1071 |
*{$AUTOLOAD} = $accessor; |
1071 |
# $AUTOLOAD will contain ::SUPER which breaks method lookup |
|
|
1072 |
# therefore we cannot write those entries into the symbol table |
1073 |
unless ( $AUTOLOAD =~ /::SUPER::/ ) { |
1074 |
no strict 'refs'; ## no critic (strict) |
1075 |
*{$AUTOLOAD} = $accessor; |
1076 |
} |
1072 |
return $accessor->( $self, @_ ); |
1077 |
return $accessor->( $self, @_ ); |
1073 |
} |
1078 |
} |
1074 |
|
1079 |
|
1075 |
- |
|
|