5 use System::Introspector::Probe::Puppet;
7 my $probe = System::Introspector::Probe::Puppet->new(
8 classes_file => "$FindBin::Bin/data/puppet/classes.txt",
9 resources_file => "$FindBin::Bin/data/puppet/resources.txt",
12 my $data = $probe->gather;
13 is_deeply $data->{classes},
14 [qw( user::foo settings user::foo user::bar )],
16 is_deeply $data->{resources},
19 [file => '/home/foo/quux'],
22 [__error__ => 'invalid'],