view release on metacpan or  search on metacpan

lib/Elive/Entity/Session.pm  view on Meta::CPAN

sub delete {
    my $self = shift;
    my %opt = @_;

    $self->meeting->delete;
    $self->_deleted(1);

    my $delegates = $self->_delegates;

    foreach my $delegate (sort keys %$delegates) {
        # ELM cascades the delete for us
	$self->$delegate->_deleted(1) if $self->{$delegate};
    }

    return 1;
}

=head2 is_changed

Returns a list of properties that have unsaved changes.