package Xot::Style::Def; use strict; use base 'Xot::Accessors'; Xot::Style::Def->plain(qw(name xot sql dot)); sub init { my ($self, $xot, $twig) = splice @_, 0, 3; my ($dot) = $twig->children('style_implementation[@target="dot"]'); my ($sql) = $twig->children('style_implementation[@target="sql"]'); $self->name($twig->att('name')); $self->xot($xot); $self->twig($twig); $self->dot($dot->text); $self->sql($sql->text); } 1;