output:use strict; use warnings; package abstracted; our $name = 'parent'; sub get_that_name { my $self = shift; my $class = ref $self; no strict 'refs'; return ${"${class}::name"}; } package abstracted::versionA; use base 'abstracted'; our $name = 'vA'; package abstracted::versionB; use base 'abstracted'; our $name = 'vB'; package main; foreach my $obj ( map { bless [] => $_ } qw/abstracted abstracted::versionA abstracted::versionB/) { print $obj->get_that_name."\n"; }
see also symbolic referencesparent vA vB
In reply to Re: Accessing class/subclass variables
by Arunbear
in thread Accessing class/subclass variables
by nmerriweather
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |