merge dhoss changes (some minor conflicts)

Survey-Perl/dump_survey.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Dumper;
+my $survey = $ARGV[0];
+my $fields = do $survey;
+
+foreach my $aref ( @{$fields} ) {
+    foreach my $field ( @{$aref} ) {
+	    next if ref $field ne 'HASH';
+        print $field->{'field'} . "\n";
+    }
+}

Survey-Perl/fields

@@ -0,0 +1,90 @@
+
+gender
+age
+country_birth
+country_residence
+highest_qual
+field
+perl_formal
+other_dynamic_formal
+other_dynamic_taught
+income
+industries
+
+prog_length
+perl_length
+percent_programming
+percent_management
+percent_perl
+spare_time
+perl_versions
+perl_versions
+
+os_dev
+os_deployment
+
+lang
+lang1
+lang2
+lang3
+lang4
+
+perl_freq
+
+
+pm_list
+tech_list
+tech_list_non_perl
+local_pm
+pm_meetings
+conference
+cpan_modules
+handover_modules
+bug_report_interpreter
+fix_bug_interpreter
+feature_interpreter
+cpan_bug
+cpan_fix_bug
+cpan_feature
+
+legacy
+eliminate
+startup
+unmaintainable
+scale
+management_encourages
+management_outdated
+management_unmaintainable
+management_scale
+first
+beginner
+early_career
+experienced
+sysadmins
+netengs
+embedded
+apps
+
+best
+frustrates
+words
+
+cert_me
+cert_other
+cert_comments
+
+cpan_important
+
+cpan1
+cpan2
+cpan3
+cpan4
+run_tests
+force
+understand
+report
+x_platform
+x_comments
+
+
+email

Survey-Perl/lib/Survey/Perl/Answers/Schema.pm

@@ -0,0 +1,16 @@
+package Survey::Perl::Answers::Schema;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Schema';
+
+__PACKAGE__->load_classes;
+
+
+# Created by DBIx::Class::Schema::Loader v0.04006 @ 2009-09-11 17:06:47
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:nbZ7hOUzma87ik9kPCetYw
+
+
+# You can replace this text with custom content, and it will be preserved on regeneration
+1;