package IIc0dddbcc5525420e139003092ae80eb6::conflist; use strict; use Zen::Config; sub get { my ($view, $f) = @_; my ($list, $sep) = split ',', Zen::PerlHandler->getStatList, 2; $sep ||= ', '; my $cfg; if ($list =~ /^(.+?)::(\w+)$/) { $cfg = Zen::Config->get($1); $list = $2; } else { $cfg = $view->cfg; } join $sep, map {$cfg->{$list}{$_}} split ',', $view->getDecorated->{$f}; } 1; 