diff --git a/lib/Redmine/Wrapper.pm b/lib/Redmine/Wrapper.pm
index 81dab0de06c8754b6e7be795c2caee626e4f99aa..02669ed1f4a02ce38b2999cabc938542bc3a0c93 100644
--- a/lib/Redmine/Wrapper.pm
+++ b/lib/Redmine/Wrapper.pm
@@ -160,6 +160,15 @@ sub get_tracker_map
   \%trackers;
 }
 
+sub get_projects
+{
+  my $self= shift;
+
+  my $rm= $self->attach();
+  my $project_list= $rm->projects();
+  print __LINE__, " project_list: ", main::Dumper ($project_list);
+}
+
 sub get_project_id
 {
   my $self= shift;