view release on metacpan or  search on metacpan

README  view on Meta::CPAN

      __PACKAGE__->columns(Essential => qw[username password]);
      __PACKAGE__->columns(Others    => qw[email zip_code phone]);
      __PACKAGE__->has_a(pref => 'MyApp::Pref');

      # Enter XML Support!
      use Class::DBI::AsXML;
      __PACKAGE__->to_xml_columns([qw[username email zip_code]]);

      # Elsewhere...
      my $user = MyApp::User->retrieve(shift);
      my $user_and_prefs_xml = $user->to_xml(depth => 1);

      # Or... override defaults
      my $uname_pwd_xml = $user->to_xml( columns => {
          ref($user) => [qw[username password]],
      });
  
      # Create from XML
      my $new_user = MyApp::User->create_from_xml(<<__XML__);
      <user>
        <username>new_user</username>

lib/Class/DBI/AsXML.pm  view on Meta::CPAN

  __PACKAGE__->columns(Essential => qw[username password]);
  __PACKAGE__->columns(Others    => qw[email zip_code phone]);
  __PACKAGE__->has_a(pref => 'MyApp::Pref');

  # Enter XML Support!
  use Class::DBI::AsXML;
  __PACKAGE__->to_xml_columns([qw[username email zip_code]]);

  # Elsewhere...
  my $user = MyApp::User->retrieve(shift);
  my $user_and_prefs_xml = $user->to_xml(depth => 1);

  # Or... override defaults
  my $uname_pwd_xml = $user->to_xml( columns => {
      ref($user) => [qw[username password]],
  });
  
  # Create from XML
  my $new_user = MyApp::User->create_from_xml(<<__XML__);
  <user>
    <username>new_user</username>