Since your object is still mostly just a hash, you can iterate over its keys:

sub event { my $c = shift;

 foreach my $key (keys %$c) {
  print $key . "\n";
 }
  
}
[download]

That's a little more efficient than the solution I came up with, give thx!

foreach my $o (%{$c})
 {
  if(ref(\$o) eq 'REF' && exists($o->{Device}) && $o->{Device} eq $dev
+ice)
  {
   $o->motion;
   last;
  }
 }
[download]

If you are just going to literally iterate over the structure of your object, you really should be doing some checking to ensure each value is an object you can act upon. Personally, if I were to do something like this, I'd make a sensors top-level key, and stuff the sensors in there. That way, all sensor objects are within a single location. This allows greater flexibility going forward.

Either way, UNIVERSAL::can is a decent, clean way to see if a) the value of each key is indeed an object, and b) checks whether it can perform a specific task:

use warnings;
use strict;

package Device; {
    sub new {
        my $self = bless {}, shift;

        $self->{s1} = Sensor->new;
        $self->{s2} = Sensor->new;
        $self->{s3} = "string";

        return $self;
    }
    sub event {
        my ($self) = @_;

        for (keys %{ $self }){
            if (UNIVERSAL::can($self->{$_}, 'motion')){
                print "yep, '$_' is a sensor object\n";
            }
            else {
                print "'$_' isn't a damned sensor!\n";
            }
        }
    }
}

package Sensor; {
    sub new {
        return bless {}, shift;
    }
    sub motion {
        ...
    }
}

package main;

my $device = Device->new;

$device->event;
[download]

Output:

yep, 's1' is a sensor object
's3' isn't a damned sensor!
yep, 's2' is a sensor object
[download]

#!/usr/bin/perl
use warnings;
use strict;


sub MotionSensorA::new { bless { type => $_[1] }, $_[0] }
sub MotionSensorB::new { bless { type => $_[1] }, $_[0] }

{   package Device;
    use Moose;

    has laboratory  => (is      => 'ro',
                        isa     => 'MotionSensorB',
                        default => sub {
                            'MotionSensorB'->new('senMotion_H2_S1');
                        });
    has fruitcellar => (is      => 'ro',
                        isa     => 'MotionSensorA',
                        default => sub {
                            'MotionSensorA'->new('senMotion_H1_S1');
                        });

    sub event {
        my ($self) = @_;

        foreach my $device ($self->meta->get_attribute_list) {
            print "$device: ", $self->$device->{type}, "\n";
        }
    }
    __PACKAGE__->meta->make_immutable;
}

my $d = 'Device'->new;
$d->event;
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]