Skip to content

Instantly share code, notes, and snippets.

@dr-kd

dr-kd/error

Created April 23, 2010 08:37
Show Gist options
  • Save dr-kd/376357 to your computer and use it in GitHub Desktop.
Save dr-kd/376357 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
error
Caught exception in Survey::Perl::Controller::Survey->finish_survey "Can't use string ("Mac OS X for personal computers>") as an ARRAY ref while "strict refs" in use at /Users/kd/Desktop/dev/perlsurvey/Data-PerlSurvey2007-1.00/Survey-Perl/script/../lib/Survey/Perl/Controller/Survey.pm line 39."
Request
bless({
_path => "survey/finish",
action => "/survey/finish_survey",
address => "127.0.0.1",
arguments => [],
base => bless(do{\(my $o = "http://localhost:3000/")}, "URI::http"),
body_parameters => {
age => 3,
apps => 5,
beginner => 4,
best => "cpan",
"bug_report_interpreter" => 0,
cert_comments => "",
cert_me => 2,
cert_other => 5,
conference => 0,
country_birth => "canada",
country_residence => "australia",
cpan1 => "Catalyst",
cpan2 => "DBIx::Class",
cpan3 => "Lingua::EN::Tagger",
cpan4 => "Moose",
cpan_bug => 2,
cpan_feature => 2,
cpan_fix_bug => 2,
cpan_important => "Text::CSV_XS",
cpan_modules => 1,
early_career => 6,
eliminate => 5,
email => "diment\@gmail.com",
embedded => 0,
experienced => 6,
feature_interpreter => 0,
field => ["Science>", "Social Science>"],
first => 4,
fix_bug_interpreter => 0,
force => 5,
frustrates => "non-perl programmers perceptions of it",
gender => 0,
handover_modules => 0,
highest_qual => 3,
income => 1,
industries => ["Education>", "Medical/Healthcare>"],
lang => "r",
lang1 => "javascript",
lang2 => "none",
lang3 => "none",
lang4 => "none",
legacy => 1,
local_pm => 0,
"management_encourages" => 4,
management_outdated => 5,
management_scale => 5,
"management_unmaintainable" => 5,
netengs => 6,
os_deployment => [
"Linux - ubuntu>",
"Mac OS X for personal computers>",
"Windows XP>",
],
os_dev => "Mac OS X for personal computers>",
other_dynamic_formal => 0,
other_dynamic_taught => "",
percent_management => 0,
percent_perl => 3,
percent_programming => 1,
perl_editors => "Emacs >",
"perl_editors_secondary" => "Vi>",
perl_formal => 0,
perl_freq => 0,
perl_length => 3,
perl_versions => ["5.8.x>", "5.10.x>", 4],
pm_list => 2,
pm_meetings => 2,
prog_length => 4,
report => 5,
run_tests => 4,
scale => 1,
spare_time => 2,
startup => 2,
submit => "Finished",
sysadmins => 6,
tech_list => 2,
tech_list_non_perl => 2,
understand => 4,
words => "a flexible efficient language that lets me get things done quickly with minimum of fuss",
x_comments => "I wrote it. Maybe fix the layout of the non-likert scales.",
x_platform => 5,
},
captures => [],
cookies => {
survey_perl_session => bless({
name => "survey_perl_session",
path => "/",
value => ["f1730b8fb44dfbc170c1ec9e996feded846b9a99"],
}, "CGI::Simple::Cookie"),
},
headers => bless({
"accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
"accept-charset" => "ISO-8859-1,utf-8;q=0.7,*;q=0.7",
"accept-encoding" => "gzip,deflate",
"accept-language" => "en-us,en;q=0.5",
connection => "keep-alive",
"content-length" => 1598,
"content-type" => "application/x-www-form-urlencoded",
cookie => "survey_perl_session=f1730b8fb44dfbc170c1ec9e996feded846b9a99",
host => "localhost:3000",
"keep-alive" => 300,
referer => "http://localhost:3000/survey",
"user-agent" => "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US; rv:1.9.1.9) Gecko/20100315 Ant.com Toolbar 2.0.1 Firefox/3.0.4,",
}, "HTTP::Headers"),
match => "/survey/finish_survey",
method => "POST",
parameters => {
age => 3,
apps => 5,
beginner => 4,
best => "cpan",
"bug_report_interpreter" => 0,
cert_comments => "",
cert_me => 2,
cert_other => 5,
conference => 0,
country_birth => "canada",
country_residence => "australia",
cpan1 => "Catalyst",
cpan2 => "DBIx::Class",
cpan3 => "Lingua::EN::Tagger",
cpan4 => "Moose",
cpan_bug => 2,
cpan_feature => 2,
cpan_fix_bug => 2,
cpan_important => "Text::CSV_XS",
cpan_modules => 1,
early_career => 6,
eliminate => 5,
email => "diment\@gmail.com",
embedded => 0,
experienced => 6,
feature_interpreter => 0,
field => ["Science>", "Social Science>"],
first => 4,
fix_bug_interpreter => 0,
force => 5,
frustrates => "non-perl programmers perceptions of it",
gender => 0,
handover_modules => 0,
highest_qual => 3,
income => 1,
industries => ["Education>", "Medical/Healthcare>"],
lang => "r",
lang1 => "javascript",
lang2 => "none",
lang3 => "none",
lang4 => "none",
legacy => 1,
local_pm => 0,
"management_encourages" => 4,
management_outdated => 5,
management_scale => 5,
"management_unmaintainable" => 5,
netengs => 6,
os_deployment => [
"Linux - ubuntu>",
"Mac OS X for personal computers>",
"Windows XP>",
],
os_dev => "Mac OS X for personal computers>",
other_dynamic_formal => 0,
other_dynamic_taught => "",
percent_management => 0,
percent_perl => 3,
percent_programming => 1,
perl_editors => "Emacs >",
"perl_editors_secondary" => "Vi>",
perl_formal => 0,
perl_freq => 0,
perl_length => 3,
perl_versions => ["5.8.x>", "5.10.x>", 4],
pm_list => 2,
pm_meetings => 2,
prog_length => 4,
report => 5,
run_tests => 4,
scale => 1,
spare_time => 2,
startup => 2,
sysadmins => 6,
tech_list => 2,
tech_list_non_perl => 2,
understand => 4,
words => "a flexible efficient language that lets me get things done quickly with minimum of fuss",
x_comments => "I wrote it. Maybe fix the layout of the non-likert scales.",
x_platform => 5,
},
protocol => "HTTP/1.0",
query_parameters => {},
remote_user => undef,
secure => 0,
uploads => {},
uri => bless(do{\(my $o = "http://localhost:3000/survey/finish")}, "URI::http"),
user => undef,
}, "Catalyst::Request")
Response
bless({
body => "",
cookies => {},
finalized_headers => 0,
headers => bless({
"content-type" => "text/html; charset=utf-8",
"x-catalyst" => "5.80022",
}, "HTTP::Headers"),
status => 200,
}, "Catalyst::Response")
Stash
{}
Config
do {
my $a = {
"Action::RenderView" => {
ignore_classes => [
"DBIx::Class::ResultSource::Table",
"DBIx::Class::ResultSourceHandle",
"DateTime",
],
scrubber_func => sub { "???" },
},
"Model::Answers" => {
connect_info => [
"dbi:SQLite:/Users/kd/Desktop/dev/perlsurvey/Data-PerlSurvey2007-1.00/Survey-Perl/db/answers.db",
"",
"",
],
schema_class => "Survey::Perl::Answers::Schema",
},
"Model::Auth" => {
connect_info => [
"dbi:SQLite:/Users/kd/Desktop/dev/perlsurvey/Data-PerlSurvey2007-1.00/Survey-Perl/db/auth.db",
"user",
"passwd",
],
schema_class => "Survey::Perl::Auth::Schema",
},
"Model::Autocomplete" => {
connect_info => [
"dbi:SQLite:/Users/kd/Desktop/dev/perlsurvey/Data-PerlSurvey2007-1.00/Survey-Perl/db/autocomplete.db",
"user",
"passwd",
],
schema_class => "Autocomplete",
},
"Plugin::Authentication" => {
default_realm => "users",
realms => {
users => {
credential => {
class => "HTTP",
password_field => "password",
password_hash_type => "SHA-1",
password_type => "hashed",
type => "basic",
username_field => "username",
},
store => {
class => "DBIx::Class",
"ignore_fields_in_find" => [],
role_column => "role_text",
store_user_class => "Catalyst::Authentication::Store::DBIx::Class::User",
user_class => "Auth::User",
},
use_session => 1,
},
},
use_session => 1,
},
"Plugin::ConfigLoader" => {},
"Plugin::Session" => {
cookie_name => "survey_perl_session",
expires => 7200,
storage => "/var/folders/Yr/Yrk84anXF1mt6zI0gT4sSE+++TI/-Tmp-/survey/perl/session_data",
verify_address => 0,
verify_user_agent => 0,
},
"View::JSON" => { expose_stash => "autocomplete" },
authentication => 'fix',
default_view => "Web",
home => "/Users/kd/Desktop/dev/perlsurvey/Data-PerlSurvey2007-1.00/Survey-Perl",
name => "Survey::Perl",
recaptcha => {
priv_key => "6LcsbAAAAAAAANQQGqwsnkrTd7QTGRBKQQZwBH-L",
pub_key => "6LcsbAAAAAAAAPDSlBaVGXjMo1kJHwUiHzO2TDze",
},
root => bless({
dirs => [
"",
"Users",
"kd",
"Desktop",
"dev",
"perlsurvey",
"Data-PerlSurvey2007-1.00",
"Survey-Perl",
"root",
],
file_spec_class => undef,
volume => "",
}, "Path::Class::Dir"),
static => {
debug => 1,
dirs => [],
ignore_dirs => [],
ignore_extensions => ["tmpl", "tt", "tt2", "html", "xhtml"],
include_path => ['fix'],
mime_types => {},
mime_types_obj => bless({}, "MIME::Types"),
no_logs => 1,
},
};
$a->{authentication} = $a->{"Plugin::Authentication"};
$a->{static}{include_path}[0] = $a->{root};
$a;
}
Session ID
"f1730b8fb44dfbc170c1ec9e996feded846b9a99"
Session
{ __created => 1272010828, __updated => 1272011084, human => 1 }
Survey::Perl on Catalyst 5.80022
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment