moved probe classes to ::Probe:: namespace
Robert 'phaylon' Sedlacek [Thu, 24 May 2012 17:47:38 +0000 (17:47 +0000)]
30 files changed:
lib/System/Introspector/Probe/DiskUsage.pm [moved from lib/System/Introspector/DiskUsage.pm with 95% similarity]
lib/System/Introspector/Probe/FileHandles.pm [moved from lib/System/Introspector/FileHandles.pm with 94% similarity]
lib/System/Introspector/Probe/Groups.pm [moved from lib/System/Introspector/Groups.pm with 95% similarity]
lib/System/Introspector/Probe/Host.pm [moved from lib/System/Introspector/Host.pm with 96% similarity]
lib/System/Introspector/Probe/Hosts.pm [moved from lib/System/Introspector/Hosts.pm with 95% similarity]
lib/System/Introspector/Probe/LibDirs/Perl.pm [moved from lib/System/Introspector/LibDirs/Perl.pm with 97% similarity]
lib/System/Introspector/Probe/MountPoints.pm [moved from lib/System/Introspector/MountPoints.pm with 97% similarity]
lib/System/Introspector/Probe/Nagios/CheckMkAgent.pm [moved from lib/System/Introspector/Nagios/CheckMkAgent.pm with 94% similarity]
lib/System/Introspector/Probe/Packages/Apt.pm [moved from lib/System/Introspector/Packages/Apt.pm with 94% similarity]
lib/System/Introspector/Probe/Processes.pm [moved from lib/System/Introspector/Processes.pm with 97% similarity]
lib/System/Introspector/Probe/Puppet.pm [moved from lib/System/Introspector/Puppet.pm with 97% similarity]
lib/System/Introspector/Probe/Repositories/Git.pm [moved from lib/System/Introspector/Repositories/Git.pm with 98% similarity]
lib/System/Introspector/Probe/ResolvConf.pm [moved from lib/System/Introspector/ResolvConf.pm with 95% similarity]
lib/System/Introspector/Probe/Sudoers.pm [moved from lib/System/Introspector/Sudoers.pm with 97% similarity]
lib/System/Introspector/Probe/Users.pm [moved from lib/System/Introspector/Users.pm with 98% similarity]
t/diskusage.t
t/filehandles.t
t/groups.t
t/host.t
t/hosts.t
t/libdirs-perl.t
t/mountpoints.t
t/nagios-checkmkagent.t
t/packages-apt.t
t/processes.t
t/puppet.t
t/repositories-git.t
t/resolvconf.t
t/sudoers.t
t/users.t

similarity index 95%
rename from lib/System/Introspector/DiskUsage.pm
rename to lib/System/Introspector/Probe/DiskUsage.pm
index b2d1d9e..0f210c4 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::DiskUsage;
+package System::Introspector::Probe::DiskUsage;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 94%
rename from lib/System/Introspector/FileHandles.pm
rename to lib/System/Introspector/Probe/FileHandles.pm
index e729ff5..8c26e07 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::FileHandles;
+package System::Introspector::Probe::FileHandles;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 95%
rename from lib/System/Introspector/Groups.pm
rename to lib/System/Introspector/Probe/Groups.pm
index db6e358..aa205ae 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Groups;
+package System::Introspector::Probe::Groups;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 96%
rename from lib/System/Introspector/Host.pm
rename to lib/System/Introspector/Probe/Host.pm
index 6fd49ca..4330c2d 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Host;
+package System::Introspector::Probe::Host;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 95%
rename from lib/System/Introspector/Hosts.pm
rename to lib/System/Introspector/Probe/Hosts.pm
index 5f01f37..d1a0d8b 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Hosts;
+package System::Introspector::Probe::Hosts;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 97%
rename from lib/System/Introspector/LibDirs/Perl.pm
rename to lib/System/Introspector/Probe/LibDirs/Perl.pm
index 2d71d0b..1e34ba9 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::LibDirs::Perl;
+package System::Introspector::Probe::LibDirs::Perl;
 use Moo;
 use Module::Metadata;
 use Digest::SHA;
similarity index 97%
rename from lib/System/Introspector/MountPoints.pm
rename to lib/System/Introspector/Probe/MountPoints.pm
index 325f961..ae07947 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::MountPoints;
+package System::Introspector::Probe::MountPoints;
 use Moo;
 
 use System::Introspector::Util qw(
@@ -1,4 +1,4 @@
-package System::Introspector::Nagios::CheckMkAgent;
+package System::Introspector::Probe::Nagios::CheckMkAgent;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 94%
rename from lib/System/Introspector/Packages/Apt.pm
rename to lib/System/Introspector/Probe/Packages/Apt.pm
index 6b742d5..3dee62b 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Packages::Apt;
+package System::Introspector::Probe::Packages::Apt;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 97%
rename from lib/System/Introspector/Processes.pm
rename to lib/System/Introspector/Probe/Processes.pm
index 4344488..3d1b962 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Processes;
+package System::Introspector::Probe::Processes;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 97%
rename from lib/System/Introspector/Puppet.pm
rename to lib/System/Introspector/Probe/Puppet.pm
index a764b30..fda3225 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Puppet;
+package System::Introspector::Probe::Puppet;
 use Moo;
 
 use System::Introspector::Util qw(
@@ -1,4 +1,4 @@
-package System::Introspector::Repositories::Git;
+package System::Introspector::Probe::Repositories::Git;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 95%
rename from lib/System/Introspector/ResolvConf.pm
rename to lib/System/Introspector/Probe/ResolvConf.pm
index 7794d4e..3417496 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::ResolvConf;
+package System::Introspector::Probe::ResolvConf;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 97%
rename from lib/System/Introspector/Sudoers.pm
rename to lib/System/Introspector/Probe/Sudoers.pm
index 1351029..0850752 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Sudoers;
+package System::Introspector::Probe::Sudoers;
 use Moo;
 
 use System::Introspector::Util qw(
similarity index 98%
rename from lib/System/Introspector/Users.pm
rename to lib/System/Introspector/Probe/Users.pm
index 7db2e8a..7189a41 100644 (file)
@@ -1,4 +1,4 @@
-package System::Introspector::Users;
+package System::Introspector::Probe::Users;
 use Moo;
 
 use System::Introspector::Util qw(
index aa8b27f..d6fb426 100644 (file)
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::DiskUsage;
+use System::Introspector::Probe::DiskUsage;
 
-my $probe = System::Introspector::DiskUsage->new;
+my $probe = System::Introspector::Probe::DiskUsage->new;
 
 my $result = $probe->gather;
 ok $result, 'received data';
index 015b31f..f740318 100644 (file)
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::FileHandles;
+use System::Introspector::Probe::FileHandles;
 
-my $probe = System::Introspector::FileHandles->new;
+my $probe = System::Introspector::Probe::FileHandles->new;
 
 my $data = $probe->gather;
 ok($data, 'received result');
index cacae50..dc28ec2 100644 (file)
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Groups;
+use System::Introspector::Probe::Groups;
 
-my $probe = System::Introspector::Groups->new;
+my $probe = System::Introspector::Probe::Groups->new;
 
 my $result = $probe->gather;
 ok $result, 'received data';
index 1bfaa1a..4e64d9e 100644 (file)
--- a/t/host.t
+++ b/t/host.t
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Host;
+use System::Introspector::Probe::Host;
 
-my $probe = System::Introspector::Host->new;
+my $probe = System::Introspector::Probe::Host->new;
 my $data  = $probe->gather;
 
 ok length($data->{hostname}), 'found a hostname';
index 323dcde..65822bb 100644 (file)
--- a/t/hosts.t
+++ b/t/hosts.t
@@ -2,9 +2,9 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::Hosts;
+use System::Introspector::Probe::Hosts;
 
-my $probe = System::Introspector::Hosts->new(
+my $probe = System::Introspector::Probe::Hosts->new(
     hosts_file => "$FindBin::Bin/data/hosts",
 );
 
index be60cdb..4e7ef2c 100644 (file)
@@ -2,18 +2,18 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::LibDirs::Perl;
+use System::Introspector::Probe::LibDirs::Perl;
 
 my $dir = "$FindBin::Bin/data/libdir/perl";
 
 no warnings 'redefine';
-*System::Introspector::LibDirs::Perl::_open_locate_libdirs_pipe = sub {
+*System::Introspector::Probe::LibDirs::Perl::_open_locate_libdirs_pipe = sub {
     my $output = "$dir/lib/perl5\n";
     open my $fh, '<', \$output;
     return $fh;
 };
 
-my $probe = System::Introspector::LibDirs::Perl->new(
+my $probe = System::Introspector::Probe::LibDirs::Perl->new(
     root => $dir,
 );
 my $data = $probe->gather;
index 8f8e5b7..e3f8859 100644 (file)
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::MountPoints;
+use System::Introspector::Probe::MountPoints;
 
-my $probe = System::Introspector::MountPoints->new;
+my $probe = System::Introspector::Probe::MountPoints->new;
 my $data  = $probe->gather;
 
 ok $data->{fstab}, 'received fstab data';
index 2fee140..77a7412 100644 (file)
@@ -1,10 +1,10 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Nagios::CheckMkAgent;
+use System::Introspector::Probe::Nagios::CheckMkAgent;
 
 no warnings 'redefine';
-*System::Introspector::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
+*System::Introspector::Probe::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
     return map "$_\n",
         '<<<foo>>>',
         'bar',
@@ -14,7 +14,7 @@ no warnings 'redefine';
         'qux';
 };
 
-my $probe = System::Introspector::Nagios::CheckMkAgent->new;
+my $probe = System::Introspector::Probe::Nagios::CheckMkAgent->new;
 my $data = $probe->gather;
 
 is_deeply $data,
index f96d685..c9c1300 100644 (file)
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Packages::Apt;
+use System::Introspector::Probe::Packages::Apt;
 
-my $probe = System::Introspector::Packages::Apt->new;
+my $probe = System::Introspector::Probe::Packages::Apt->new;
 my $data  = $probe->gather;
 
 ok(scalar(keys %$data), 'received packages');
index 8e0ca15..7a41910 100644 (file)
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Processes;
+use System::Introspector::Probe::Processes;
 
-my $probe  = System::Introspector::Processes->new;
+my $probe  = System::Introspector::Probe::Processes->new;
 my $result = $probe->gather;
 
 ok($result, 'got result');
index 3a56c55..c7e396b 100644 (file)
@@ -2,9 +2,9 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::Puppet;
+use System::Introspector::Probe::Puppet;
 
-my $probe = System::Introspector::Puppet->new(
+my $probe = System::Introspector::Probe::Puppet->new(
     classes_file    => "$FindBin::Bin/data/puppet/classes.txt",
     resources_file  => "$FindBin::Bin/data/puppet/resources.txt",
 );
index 93967bc..008224d 100644 (file)
@@ -2,7 +2,7 @@ use strictures 1;
 use Test::More;
 use File::Temp qw( tempdir );
 
-use System::Introspector::Repositories::Git;
+use System::Introspector::Probe::Repositories::Git;
 
 plan skip_all => q{Tests require a git executable}
     unless `which git`;
@@ -10,7 +10,7 @@ plan skip_all => q{Tests require a git executable}
 my $dir = tempdir(CLEANUP => 1);
 
 no warnings 'redefine';
-*System::Introspector::Repositories::Git::_open_locate_git_config_pipe = sub {
+*System::Introspector::Probe::Repositories::Git::_open_locate_git_config_pipe = sub {
     my $output = "$dir/.git/config\n";
     open my $fh, '<', \$output;
     return $fh;
@@ -18,7 +18,7 @@ no warnings 'redefine';
 
 system("GIT_DIR=$dir/.git git init > /dev/null");
 
-my $probe = System::Introspector::Repositories::Git->new(
+my $probe = System::Introspector::Probe::Repositories::Git->new(
     root => "$dir",
 );
 
index 4d927f0..1341e33 100644 (file)
@@ -2,9 +2,9 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::ResolvConf;
+use System::Introspector::Probe::ResolvConf;
 
-my $probe = System::Introspector::ResolvConf->new(
+my $probe = System::Introspector::Probe::ResolvConf->new(
     resolv_conf_file => "$FindBin::Bin/data/resolv.conf",
 );
 my $result = $probe->gather;
index 8420e07..d230980 100644 (file)
@@ -2,7 +2,7 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::Sudoers;
+use System::Introspector::Probe::Sudoers;
 
 my $dir = "$FindBin::Bin/sudoers-data";
 
@@ -23,7 +23,7 @@ my $bar_file = write_file("bar_host/baz",
     'in bar file',
 );
 
-my $probe = System::Introspector::Sudoers->new(
+my $probe = System::Introspector::Probe::Sudoers->new(
     sudoers_file => $start,
     hostname     => 'host',
 );
index 707e9c6..101affd 100644 (file)
--- a/t/users.t
+++ b/t/users.t
@@ -1,9 +1,9 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Users;
+use System::Introspector::Probe::Users;
 
-my $probe = System::Introspector::Users->new;
+my $probe = System::Introspector::Probe::Users->new;
 my $data  = $probe->gather;
 
 ok((my $user = $data->{users}{ +getlogin }), 'found own user');