[html-formfu] Element::Date + Session = error ?

[Ruben Fonseca]

Hi!

I am having a problem with a Catalyst app but I don't know if it is
FormFu related.

It seems that when I store a Element::Date in a session (both
FastMmap and DBIC), using $form->params, sooner or later I have the  
following error (sorry if it's big, but I wanted you to see all the  
details). It seems something related with binary format of something  
in the session??

If you have a clue, please help me :)
Ruben

[error] Caught exception in foo::Controller::Credito->phase3 "The
'formatter' parameter ("DateTime::Format::Strptime=HASH(0x1f7e5d8)")
to DateTime::from_object does not have the method: 'format_datetime'
at /opt/local/lib/perl5/site_perl/5.8.8/darwin-2level/DateTime.pm
line 498
          DateTime::from_object('undef', 'object',
'DateTime::_Thawed=HASH(0x1f10d44)', 'locale',
'DateTime::Locale::en=HASH(0x1efdb54)', 'formatter',
'DateTime::Format::Strptime=HASH(0x1f7e5d8)') called at /opt/local/
lib/perl5/site_perl/5.8.8/darwin-2level/DateTime.pm line 1736
          DateTime::STORABLE_thaw('DateTime=HASH(0x1efdb48)', 0,
'utc_rd_days:703457|utc_rd_secs:0|rd_nanosecs:000000000|versio...',
'DateTime::Locale::en=HASH(0x1efdb54)',
'DateTime::TimeZone::Floating=HASH(0x295b3b4)', 'REF(0x1f7e578)')
called at blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/
thaw.al) line 415
          eval {...} called at blib/lib/Storable.pm (autosplit into
blib/lib/auto/Storable/thaw.al) line 415
          Storable::thaw('\x{5}\x{7}\x{3}\x{0}\x{0}\x{0}\x{5}\x{4}\x{3}
\x{0}\x{0}\x{0}(\x{a}\x{0}\x{0}\x{0}\x{0}\x{17}credit_variable_3_marca
\x{a}\x{0}\x{0}\x{0}\x{0}\x{1b}credit_variab...') called at /opt/
local/lib/perl5/site_perl/5.8.8/Catalyst/Plugin/Session/Store/DBIC.pm
line 187
          Catalyst::Plugin::Session::Store::DBIC::__ANON__
('Catalyst::Plugin::Session::Store::DBIC::Delegate=HASH(0x1ee1b34)')
called at /opt/local/lib/perl5/site_perl/5.8.8/Catalyst/Plugin/
Session/Store/Delegate.pm line 87
          Catalyst::Plugin::Session::Store::Delegate::get_session_data
('foo=HASH(0x1d84d70)', 'session:
36a0b2eb69f2420c910e730f1c351bc381d8c0d7') called at /opt/local/lib/
perl5/site_perl/5.8.8/Catalyst/Plugin/Session.pm line 208
          Catalyst::Plugin::Session::_load_session('foo=HASH
(0x1d84d70)') called at /opt/local/lib/perl5/site_perl/5.8.8/Catalyst/
Plugin/Session.pm line 381
          Catalyst::Plugin::Session::session('foo=HASH(0x1d84d70)')
called at /Users/rff/Work/e-trading/script/../lib/foo/Controller/
Credito.pm line 192
          foo::Controller::Credito::phase3
('foo::Controller::Credito=HASH(0x1daf1bc)', 'foo=HASH(0x1d84d70)')
called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Action.pm
line 47
          Catalyst::Action::execute
('Catalyst::Controller::HTML::FormFu::Action::Config=HASH(0x1d7...',
'foo::Controller::Credito=HASH(0x1daf1bc)', 'foo=HASH(0x1d84d70)')
called at /opt/local/lib/perl5/5.8.8/NEXT.pm line 75
          NEXT::AUTOLOAD
('Catalyst::Controller::HTML::FormFu::Action::Config=HASH(0x1d7...',
'foo::Controller::Credito=HASH(0x1daf1bc)', 'foo=HASH(0x1d84d70)')
called at /opt/local/lib/perl5/site_perl/5.8.8/Catalyst/Controller/
HTML/FormFu/Action/Config.pm line 42
          Catalyst::Controller::HTML::FormFu::Action::Config::execute
('Catalyst::Controller::HTML::FormFu::Action::Config=HASH(0x1d7...',
'foo::Controller::Credito=HASH(0x1daf1bc)', 'foo=HASH(0x1d84d70)')
called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Action.pm
line 32
          Catalyst::Action::__ANON__('foo::Controller::Credito=HASH
(0x1daf1bc)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst.pm line 1205
          eval {...} called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst.pm line 1205
          Catalyst::execute('foo=HASH(0x1d84d70)',
'foo::Controller::Credito',
'Catalyst::Controller::HTML::FormFu::Action::Config=HASH(0x1d7...')
called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Action.pm
line 42
          Catalyst::Action::dispatch
('Catalyst::Controller::HTML::FormFu::Action::Config=HASH(0x1d7...',
'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/vendor_perl/
5.8.8/Catalyst/Controller.pm line 74
          Catalyst::Controller::_ACTION('foo::Controller::Credito=HASH
(0x1dae610)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst/Action.pm line 47
          Catalyst::Action::execute('Catalyst::Action=HASH
(0x1d77bd8)', 'foo::Controller::Credito=HASH(0x1dae610)', 'foo=HASH
(0x1d84d70)') called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst/Action.pm line 32
          Catalyst::Action::__ANON__('foo::Controller::Credito=HASH
(0x1dae610)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst.pm line 1205
          eval {...} called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst.pm line 1205
          Catalyst::execute('foo=HASH(0x1d84d70)',
'foo::Controller::Credito', 'Catalyst::Action=HASH(0x1d77bd8)')
called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Action.pm
line 42
          Catalyst::Action::dispatch('Catalyst::Action=HASH
(0x1d77bd8)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst/Dispatcher.pm line 177
          Catalyst::Dispatcher::forward('Catalyst::Dispatcher=HASH
(0x1a241d8)', 'foo=HASH(0x1d84d70)', '_ACTION') called at /opt/local/
lib/perl5/vendor_perl/5.8.8/Catalyst.pm line 302
          Catalyst::forward('foo=HASH(0x1d84d70)', '_ACTION') called
at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Controller.pm line 48
          Catalyst::Controller::_DISPATCH
('foo::Controller::Credito=HASH(0x1dadbe4)', 'foo=HASH(0x1d84d70)')
called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Action.pm
line 47
          Catalyst::Action::execute('Catalyst::Action=HASH
(0x1d77584)', 'foo::Controller::Credito=HASH(0x1dadbe4)', 'foo=HASH
(0x1d84d70)') called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst/Action.pm line 32
          Catalyst::Action::__ANON__('foo::Controller::Credito=HASH
(0x1dadbe4)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst.pm line 1205
          eval {...} called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst.pm line 1205
          Catalyst::execute('foo=HASH(0x1d84d70)',
'foo::Controller::Credito', 'Catalyst::Action=HASH(0x1d77584)')
called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/Action.pm
line 42
          Catalyst::Action::dispatch('Catalyst::Action=HASH
(0x1d77584)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst/Dispatcher.pm line 177
          Catalyst::Dispatcher::forward('Catalyst::Dispatcher=HASH
(0x1a241d8)', 'foo=HASH(0x1d84d70)', '/credito/_DISPATCH') called at /
opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst.pm line 302
          Catalyst::forward('foo=HASH(0x1d84d70)', '/credito/
_DISPATCH') called at /opt/local/lib/perl5/vendor_perl/5.8.8/Catalyst/
Dispatcher.pm line 116
          Catalyst::Dispatcher::dispatch('Catalyst::Dispatcher=HASH
(0x1a241d8)', 'foo=HASH(0x1d84d70)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst.pm line 1154
          Catalyst::dispatch('foo=HASH(0x1d84d70)') called at /opt/
local/lib/perl5/5.8.8/NEXT.pm line 75
          NEXT::AUTOLOAD('foo=HASH(0x1d84d70)') called at /opt/local/
lib/perl5/vendor_perl/5.8.8/Catalyst/Plugin/Static/Simple.pm line 67
          Catalyst::Plugin::Static::Simple::dispatch('foo=HASH
(0x1d84d70)') called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst.pm line 1515
          eval {...} called at /opt/local/lib/perl5/vendor_perl/5.8.8/
Catalyst.pm line 1506
          Catalyst::handle_request('foo') called at /opt/local/lib/
perl5/vendor_perl/5.8.8/Catalyst/Engine/HTTP.pm line 380
          Catalyst::Engine::HTTP::_handler
('Catalyst::Engine::HTTP::Restarter=HASH(0x1a0f9f4)', 'foo', 3000,
'POST', '/credito/phase3', 'HTTP/1.1') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst/Engine/HTTP.pm line 284
          Catalyst::Engine::HTTP::run
('Catalyst::Engine::HTTP::Restarter=HASH(0x1a0f9f4)', 'foo', 3000,
'undef', 'HASH(0x19497bc)') called at /opt/local/lib/perl5/5.8.8/
NEXT.pm line 75
          NEXT::AUTOLOAD('Catalyst::Engine::HTTP::Restarter=HASH
(0x1a0f9f4)', 'foo', 3000, 'undef', 'HASH(0x19497bc)') called at /opt/
local/lib/perl5/vendor_perl/5.8.8/Catalyst/Engine/HTTP/Restarter.pm
line 69
          Catalyst::Engine::HTTP::Restarter::run
('Catalyst::Engine::HTTP::Restarter=HASH(0x1a0f9f4)', 'foo', 3000,
'undef', 'HASH(0x19497bc)') called at /opt/local/lib/perl5/
vendor_perl/5.8.8/Catalyst.pm line 1829
          Catalyst::run('foo', 3000, 'undef', 'HASH(0x19497bc)')
called at ./script/foo_server.pl line 55, at /opt/local/lib/perl5/
site_perl/5.8.8/Catalyst/Plugin/Session/Store/DBIC.pm line 187"