view release on metacpan or  search on metacpan

lib/WWW/Google/Contacts/Base.pm  view on Meta::CPAN

                # write attributes that are read only to the user
                $self->$writer( $data->{ $attr->xml_key } );
            }
            else {
                my $name = $attr->name;
                try {
                    $self->$name( $data->{ $attr->xml_key } );
                }
                catch {
                    my @err = split m{\n}, $_;
                    print "\nERROR - Failed to set attribute\n";
                    print "-------------------------------\n";
                    print "Attribute: " . $name . "\n";
                    print "Value: " . Dumper $data->{ $attr->xml_key };
                    print "Error: " . $err[0] . "\n";
                    print
"\nPlease include the above in an email bug report to magnus\@erixzon.com\n";
                    print
"Remove personal content in the 'value' hash, but please leave the structure intact.\n\n";
                    die "\n";