I've shown you two ways and the second works for objects too. (in perl package == class)

Don't know too much about moose.

But if you ask for "the cleanest" approach, better avoid metaprogramming!

Just define two getters and use a fat comma to get rid of the quoting.

$object->cell(light => 10);
$object->time(light => $timestamp);
[download]

I like metaprogramming, but here it's over the top.

And this certainly works with moose too!